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Foreword 



SpeedScript is the most popular program ever published by 
COMPUTE! Publications. Ever since it first appeared in the 
January 1984 issue of COMPUTEl's Gazette, the letters have 
been pouring in. People wanted to know more about the pro- 
gram and word processing, and they had countless sugges- 
tions about how to make SpeedScript better. 

The result is SpeedScript 3,0, an even more powerful word 
processor for all eight-bit Ataris (including the 400/800, 
600XL/800XL, 1200XL, and new XE series). Enhanced with 
additional commands and features, this all machine language 
word processor gives you all the things you expect from a 
commercial software package. You can write, edit, format, and 
print anything from memos to novels on your Atari. With a 
few keystrokes you can change the color of the screen and its 
text to whatever combination best suits you. 

It's easy to add or delete words, letters, even whole para- 
graphs. You can search through an entire document and find 
every occurrence of a particular word or phrase, then replace it 
with something new. Of course, when you finish writing, you 
can save your work to tape or disk. 

The ability to quickly change the appearance of a printed 
document is one of the things that make word processing so 
efficient. SpeedScript lets you alter the margins, page length, 
spacing, page numbers, page width, as well as set up headers 
and footers at the top and bottom of the paper. 

And once you've formatted your document, you'll find 
enough print features to make even the most demanding 
writer happy. With SpeedScript, you can start printing at any 
page, force the printer to create a new page at any time, even 
make it wait while you put in another sheet of paper. Under- 
lining and centering are simple. If you want to get fancy, you 
can use your printer's codes to create graphics symbols or 
logos. And if you're writing something really long — perhaps a 
novel or term paper — SpeedScript lets you link any number of 
files so that they print out as one continuous document. 

In addition to the SpeedScript program for the Atari, you'll 
find complete documentation and a keyboard map in this 
book. SpeedScript 's source code has also been included for 



your examination. By studying it, you'll see exactly how the 
program is put together. 

"The Machine Language Editor: MLX" makes typing in 
the program easier. MLX almost guarantees that you'll have an 
error-free copy of the program the first time you type it in. If 
you prefer to purchase a copy of SpeedScript on disk rather 
than type it in, just use the convenient coupon in the back, or 
call toll-free 1-800-334-0868. 

SpeedScript is an exceptionally easy-to-use and powerful 
word processor that will meet all your writing needs. 
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SpeedScrtpt 3.0 

All Machine Language Word 
Processor for the Atari 

SpeedScript has become one of the most popular word processors for the 
Commodore 64, VIC-20, and Apple computers. And now SpeedScript 
has been translated to run on all eight-bit Ataris with at least 24K, with 
either disk or cassette (including the 400, 800, 600XL with memory 
expansion, 800XL, 1200XL, and new XE series). SpeedScript compares 
favorably with commercial word processors and has some features never 
seen before in an Atari word processor. It represents unique value in a 
type-in program. 



SpeedScript 3.0, though compact in size (8K), has many fea- 
tures found on commercial word processors. SpeedScript is also 
very easy to learn and use. You type in everything first; pre- 
view and make corrections on the screen; insert and delete 
words, sentences, and paragraphs; then print out an error-free 
draft, letting SpeedScript take care of things like margins, 
centering, headers, and footers. 

Typing in SpeedScript 

Atari SpeedScript is the longest machine language program 
we've ever published, but COMPUTEl's "MLX" entry system 
helps you type it right the first time. MLX can detect most er- 
rors people make when entering numbers. (See the instruc- 
tions for using MLX in chapter 2.) MLX also lets you type 
SpeedScript in more than one sitting. Although the program 
listing is lengthy, we guarantee the effort will be worthwhile. 
After you run the Atari version of MLX, answer the first 
two questions like this: 

Starting Address? 7936 
Ending Address? 16229 
Run/Init Address 7936 

Next, you'll be asked "Tape or Disk." SpeedScript can be 
saved as either a binary file on disk or as a boot tape. Press T 
for use with a tape drive. If you press D for disk, you'll be 
asked "Boot Disk or Binary File." Press F to select the Binary 
File option. Although you could save SpeedScript as an auto- 
booting disk, it makes no sense, because such a disk cannot 
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contain DOS, which is necessary for file-oriented disk access. 

The screen will then show the first prompt, the number 
7936 followed by a colon (:). Type in each three-digit number 
shown in the listing. You do not need to type the comma 
shown in the listing. MLX inserts the comma automatically. 

The last number you enter in each line is a checksum. It 
represents the values of the other numbers in the line summed 
together. If you type the line correctly, the checksum cal- 
culated by MLX and displayed on the screen should match the 
checksum number in the listing. If it doesn't match, you will 
have to retype the line. MLX is not foolproof, though. It's pos- 
sible to fool the checksum by exchanging the positions of the 
three-digit numbers. Also, an error in one number can be off- 
set by an error in another. MLX will help catch your errors, 
but you must still be careful. 

Typing in Multiple sittings 

If you want to stop typing the listing at some point and pick 
up later, press CTRL-S and follow the screen prompts. (For 
disk, MLX will ask you to specify a filename; do not use 
AUTORUN.SYS until the entire listing is typed in.) Remember 
to note the line number of the last line you entered. When 
you are ready to continue typing, load MLX, answer the 
prompts as you did before, then press CTRL-L. For a boot 
tape, be sure the cassette is in the tape drive and rewound. For 
a binary disk file, MLX asks for the filename you gave to the 
partially typed listing. After the LOAD is complete, press 
CTRL-N and tell MLX the line number where you stopped. 
Now continue typing as before. 

When you finish all typing, MLX automatically prompts 
you to save the program. For disks with Atari DOS 2.0 or 3.0, 
save the completed program with the filename 
AUTORUN.SYS. This will allow SpeedScript to load and run 
automatically when the disk is booted. 

At this point, MLX has saved either a boot tape or binary 
disk file. To load your boot tape, remove all cartridges, rewind 
the tape, and hold down the START button while turning on 
the power. (On the 600XL, 800XL, and XE series, disable 
BASIC by holding down both START and OPTION while 
turning on the power.) When the computer turns on, you'll 
hear a single beep tone. (On the XL and XE series, make sure 
the volume is turned up on your TV or monitor.) Press PLAY 
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on the tape drive, then press any key on the keyboard to start 
the load. SpeedScript will automatically run once the boot is 
successfully completed. 

To use SpeedScript with an Atari DOS disk, you must save 
or copy it on a disk which also contains DOS. SYS and 
DUP.SYS. Since you've saved SpeedScript as AUTORUN.SYS, 
it will automatically load and run when you turn on your 
computer with this disk in the drive. (On the 600XL, 800XL, 
and XE series, disable BASIC by holding down OPTION when 
switching on the computer.) SpeedScript must always be 
named AUTORUN.SYS in order to load properly with Atari 
DOS. If you want to prevent it from automatically running for 
some reason, you can save it with another name, then rename 
it AUTORUN.SYS later. 

If you're using Optimized System Software's OS /A + 
DOS or a compatible successor, you can give SpeedScript any 
filename you like. Just vise the LOAD command from DOS, 
and SpeedScript will automatically run. Or you can give it a 
filename with the extension .COM, such as SPEED.COM. 
Then you can start up by just typing SPEED at the DOS 
prompt. You can also write a simple batch file to boot up 
SpeedScript automatically. Some enhanced DOS packages like 
Optimized System Software's DOS XL may use so much 
memory that they conflict with SpeedScript. In this case, you'll 
need either to use Atari DOS instead on your SpeedScript disks 
or to reassemble the source code at a higher address to avoid 
conflicts. 

Note: The AUTORUN.SYS file on your DOS master disk 
is responsible for booting up the 850 Interface Module for 
RS-232 communications. There is no easy way to combine the 
850 boot program with SpeedScript, so you can't access the R: 
device. We'll show you later how to transfer files over a mo- 
dem or print to a serial printer. 

If you prefer, Atari SpeedScript is available for purchase on 
disk. To order the disk, use the coupon in the back of this book 
or call COMPUTE! Publications toll-free at 800-334-0868. 

Entering Text 

When you run SpeedScript, the screen colors change to black 
on white. The first line on the screen is black with white let- 
ters. SpeedScript presents all messages on this command line. 
The remaining 18 lines of the screen are used to enter, edit, 
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and display your document. SpeedScript makes use of a spe- 
cial, but little-used, Atari character mode that permits larger, 
more readable characters with true lowercase descenders. The 
screen still shows up to 40 columns; only five rows are sac- 
rificed. We think you'll agree that this is the most readable 
text you've ever seen on an Atari — perfect for word process- 
ing. (Technical note: SpeedScript starts at $1F00, and the AN- 
TIC 3 character set is embedded at $2000.) 

The cursor, a blinking square, shows where the next 
character you type will appear on the screen. SpeedScript lets 
you move the cursor anywhere within your document, making 
it easy to find and correct errors. 

To begin using SpeedScript, just start typing. When the 
cursor reaches the right edge of the screen, it automatically 
jumps to the beginning of the next line, just as in BASIC. But 
unlike BASIC, SpeedScript never splits words at the right edge 
of the screen. If a word you're typing won't fit at the end of 
one line, it's instantly moved to the next line. This feature, 
called word-wrap, or parsing, also helps to make your text 
more readable. 

Scrolling and Screen Formatting 

When you finish typing on the last screen line, SpeedScript 
automatically scrolls the text upward to make room for a new 
line at the bottom. Imagine the screen as an 18-line window 
on a long, continuous document. If you've unplugged all car- 
tridges or disabled BASIC as described above, there's room in 
memory for 3328 characters of text with 24K RAM and up to 
27,904 characters on a 48K machine. (Unfortunately, Speed- 
Script 3.0 cannot make use of the extra memory available in 
the XL and XE series.) An additional 2K of text memory is 
available if SpeedScript is loaded from a boot tape. To check at 
any time how much unused space is left, press CTRL-U (hold 
down the CTRL key while pressing the U key). The number 
appearing in the command line indicates how much unused 
room remains for characters of text. 

If you're used to a typewriter, you'll have to unlearn some 
habits if this is your first experience with word processing. 
Since the screen is only 40 columns wide, and most printers 
have 80-column carriages, it doesn't make sense to press RE- 
TURN at the end of each line as you do on a typewriter. 
SpeedScript's word-wrap takes care of this automatically. Press 
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RETURN only when you want to force a carriage return to 
end a paragraph or limit the length of a line. A return-mark 
appears on the screen as a crooked left-pointing arrow. 

Using the Keyboard 

Most features are accessed with control key commands — you 
hold down CTRL while pressing another key. In this book, 
control key commands are abbreviated CTRL-* (where x is 
the key you press in combination with CTRL). An example is 
the CTRL-U mentioned above to check on unused memory. 
CTRL-E means hold down CTRL and press E. Sometimes you 
must also hold down the OPTION button to select a special 
option of a command, such as OPTION-CTRL-H. Other keys 
are referenced by name or function, such as DELETE/BACK S 
for the backspace key, CTRL-CLEAR for the clear-screen key, 
and cursor left or CTRL-+ for the cursor-left key. (See the 
"Keyboard Map," page 18, for a summary of the keyboard 
commands.) 

Some keys let you move the cursor to different places in 
the document to make corrections or scroll text into view. You 
can move the cursor by character, word, sentence, or para- 
graph. Here's how to control the cursor: 

• The cursor left/right keys (CTRL-+ and CTRL-*) work as 
usual; pressing CTRL-* moves the cursor right (forward) one 
space, and CTRL-+ moves the cursor left (backward) one 
space. 

• The cursor up/down keys (CTRL-minus and CTRL- = ) move 
the cursor to the beginning of either the next or previous 
sentence. Press CTRL-minus to move the cursor up (back- 
ward) to the beginning of the previous sentence. Press 
CTRL-= to move the cursor down (forward) to the begin- 
ning of the next sentence. 

• SHIFT- + moves the cursor left (backward) to the beginning 
of the previous word. SHIFT-* moves the cursor right (for- 
ward) to the beginning of the next word. If you get confused, 
just look at the arrows on the keys for a reminder. 

• SHIFT-minus moves the cursor up (backward) to the begin- 
ning of the previous paragraph. SHIFT- = moves the cursor 
down (forward) to the beginning of the next paragraph. 
Again, look at the arrows on these keys for a reminder. A 
paragraph always ends with a return-mark. 
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• The START button, pressed once, moves the cursor to the 
top (start) of the screen without scrolling. Pressed twice, it 
moves the cursor to the start of the document. 

• CTRL-Z moves the cursor to the end of the document, 
scrolling if necessary. It's easy to remember since Z is at the 
end of the alphabet. 

For special applications, if you ever need to type the ac- 
tual character represented by a command or cursor key, press 
ESC before typing the CTRL key. Press ESC twice to get the 
ESCape character, CHR$(27). 

Correcting Your Typing 

Sometimes you'll have to insert some characters to make a 
correction. Use CTRL-INSERT to open up a single space, just 
as in BASIC. Merely position the cursor at the point where 
you want to insert a space, and press CTRL-INSERT. 

It can be tedious to use CTRL-INSERT to open up 
enough space for a whole sentence or paragraph. For conven- 
ience, SpeedScript has an insert mode that automatically inserts 
space for each character you type. In this mode, you can't type 
over characters; everything is inserted at the cursor position. 
To enter insert mode, press CTRL-I. To cancel insert mode, 
press CTRL-I again. To let you know you're in insert mode, 
the black command line at the top of the screen turns blue. 

Insert mode is the easiest way to insert text, but it can be- 
come too slow when inserting near the top of a very long 
document because it must move all the text following the 
cursor position. So SpeedScript has even more ways to insert 
blocks of text. 

One way is to use the TAB key. It is programmed in 
SpeedScript to act as a five-space margin indent. To end a para- 
graph and start another, press RETURN twice and press TAB. 
TAB always inserts; you don't need to be in insert mode. You 
can also use TAB to open up more space than CTRL-INSERT. 
(You cannot set or clear tab stops in SpeedScript as you can 
with the normal screen editor.) No matter how much space 
you want to insert, each insertion takes the same amount of 
time. So the TAB key can insert five spaces five times faster 
than pressing CTRL-INSERT five times. 

There's an even better way, though. Press SHIFT-INSERT 
to insert 255 spaces (it does not insert a line; use RETURN for 
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that). You can press it several times to open up as much space 
as you need. And SHIFT-INSERT is fast. It inserts 255 spaces 
as fast as CTRL-INSERT opens up one space. Now just type 
the text you want to insert over the blank space. (You don't 
want to be in CTRL-I insert mode when you use this trick; 
that would defeat its purpose.) 

Since the DELETE/BACK S key (backspace) is also slow 
when working with large documents (it, too, must move all 
text following the cursor), you may prefer to use the cursor-left 
key to backspace when using this method. 

After you've finished inserting, there may be some in- 
serted spaces left over that you didn't use. Just press 
SHIFT-DELETE/BACK S. This instantly deletes all extra 
spaces between the cursor and the start of following text. It's 
also useful whenever you need to delete a block of spaces for 
some reason. 

Erasing Text 

Press DELETE/BACK S by itself to erase the character to the 
left of the cursor. All the following text is pulled back to fill 
the vacant space. 

Press CTRL-DELETE/BACK S to delete the character on 
which the cursor is sitting. Again, all the following text is 
moved toward the cursor to fill the empty space. 

These keys are fine for minor deletions, but it could take 
all day to delete a whole paragraph this way. So SpeedScript 
has two commands that can delete an entire word, sentence, 
or paragraph at a time. CTRL-E erases text after (to the right 
of) the cursor position, and CTRL-D deletes text behind (to the 
left of) the cursor. 

To use the CTRL-E erase mode, first place the cursor at 
the beginning of the word, sentence, or paragraph you want to 
erase. Then press CTRL-E. The command line shows the mes- 
sage "Erase (S,W,P): RETURN to exit." Press S to erase a sen- 
tence, W for a word, or P for a paragraph. Each time you press 
one of these letters, the text is quickly erased. You can keep 
pressing S, W, or P until you've erased all the text you wish. 
Then press RETURN to exit the erase mode. 

The CTRL-D delete mode works similarly, but deletes 
only one word, sentence, or paragraph at a time. First, place 
the cursor after the word, sentence, or paragraph you want to 
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delete. Then press CTRL-D. Next, press S, W, or P for sen- 
tence, word, or paragraph. The text is immediately deleted and 
you return to editing. You don't need to press RETURN to exit 
the CTRL-D delete mode unless you pressed this key by mis- 
take. (In general, you can escape from any command in Speed- 
Script by simply pressing RETURN.) CTRL-D is most 
convenient when the cursor is already past what you've been 
typing. 

The Text Buffer 

When you erase or delete with CTRL-E or CTRL-D, the text 
isn't lost forever. SpeedScript remembers what you've removed 
by storing deletions in a separate area of memory called a 
buffer. The buffer is a fail-safe device. If you erase too much or 
change your mind, just press CTRL-R to restore the deletion. 
However, be aware that SpeedScript remembers only the last 
erase or delete you performed. 

Another, more powerful use of this buffer is to move or 
copy sections of text. To move some text from one location in 
your document to another, first erase or delete it with CTRL-E 
or CTRL-D. Then move the cursor to where you want the text 
to appear and press CTRL-R. CTRL-R instantly inserts the 
contents of the buffer at the cursor position. If you want to 
copy some text from one part of your document to another, 
just erase or delete it with CTRL-E or CTRL-D, restore it at the 
original position with CTRL-R, then move the cursor else- 
where and press CTRL-R to restore it again. You can retrieve 
the buffer with CTRL-R as many times as you like. If there is 
no room left in memory for inserting the buffer, you'll see the 
message "Memory Full." 

Important: The CTRL-E erase mode lets you erase up to 
the maximum size of the buffer (2K for disk, about 6K for 
tape), and CTRL-E also removes the previous contents of the 
buffer. Keep this in mind if there's something in the buffer 
you'd rather keep. If you don't want the buffer to be erased, 
hold down the OPTION key while you press CTRL-E. This 
preserves the buffer contents and adds newly erased text to 
the buffer. 

If you ever need to erase the contents of the buffer, press 
CTRL-K (kill buffer). 
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The Wdstebasket command 

If you want to start a new document or simply obliterate all 
your text, hold down OPTION while you press SHIFT-CLEAR 
(that's not a combination you're likely to press accidentally). 
SpeedScript asks, "ERASE ALL TEXT: Are you sure? (Y/N)." 
This is your last chance. If you don't want to erase the entire 
document, press N or any other key. Press Y to perform the ir- 
reversible deed. There is no way to recover text wiped out 
with Erase All. 

Search and Replace 

SpeedScript has a Find command that searches through your 
document to find a selected word or phrase. A Change option 
lets you automatically change one word to another throughout 
the document. 

OPTION-CTRL-F (find) activates the search feature, 
OPTION-CTRL-C (change) lets you selectively search and re- 
place, and CTRL-G (global) is for automatically searching and 
replacing. 

Searching is a two-step process. First, you need to tell 
SpeedScript what to search for, then you trigger the actual 
search. Hold down OPTION and press CTRL-F. The command 
line prompts "Find:". Type in what you'd like to search for, 
the search phrase. If you press RETURN alone without typing 
anything, the Find command is canceled. 

When you are ready to search, press CTRL-F. SpeedScript 
looks for the next occurrence of the search phrase starting from 
the current cursor position. If you want to hunt through the en- 
tire document, press START twice to move the cursor to the 
very top before beginning the search. Each time you press 
CTRL-F, SpeedScript looks for the next occurrence of the search 
phrase and places the cursor at the start of the phrase. If the 
search fails, you'll see the message "Not Found." 

CTRL-C works together with CTRL-F. After you've speci- 
fied the search phrase with OPTION-CTRL-F, press OPTION- 
CTRL-C to select the replace phrase. (You can press RETURN 
alone at the "Change to:" prompt to select a null replace 
phrase. When you hunt and replace, this deletes the located 
phrase.) To search and replace manually, start by pressing 
CTRL-F. After SpeedScript finds the search phrase, press 
CTRL-C if you want to replace the phrase. If you don't want 
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to replace the phrase, don't press CTRL-C. You are not in a 
special search and replace mode. You're free to continue writ- 
ing at any time. 

CTRL-G links CTRL-F and CTRL-C together. It first asks 
"Find:", then "Change to:", then automatically searches and 
replaces throughout the document, starting at the cursor 
position. 

There are a few things to watch out for when using 
search and replace. First, realize that if you search for the, 
SpeedScript finds the embedded the in words like therefore and 
heathen. If you changed all occurrences of the to cow, these 
words would become cowrefore and heacown. If you want to 
find a single word, include a space as the first character of the 
word, since almost all words are preceded by a space. Natu- 
rally, if you are replacing, you need to include the space in the 
replace phrase, too. 

SpeedScript also distinguishes between uppercase and 
lowercase. The word Meldids does not match with meldids. 
SpeedScript will not find a capitalized word unless you capital- 
ize it in the search phrase. To cover all bases, you will some- 
times need to make two passes at replacing a word. Keep 
these things in mind when using CTRL-G, since you don't 
have a chance to stop a global search and replace. 

Storing Your Document 

Just press CTRL-S to store a document. You'll see the prompt 
"Save: (Device:Filename)>". Type C: for cassette or D: plus a 
legal Atari filename for disk. If you use the same name as a 
file already on disk, that file will be replaced by the new one. 
CTRL-S always saves the entire document. The cursor position 
within the document is not important. 

When the SAVE is complete, SpeedScript reports "No er- 
rors" if all is well or gives a message like "Error #144" if not. 
Check your DOS or BASIC manual for a list of error numbers 
and their causes. 

Loading a Document 

To recall a previously saved document, press CTRL-L. Answer 
the "Load: (Device :Filename)>" prompt with the filename. 
Again, remember to include the C: for cassette or D: for disk. 
SpeedScript loads the file and should display "No errors." 
Otherwise, SpeedScript reports the error number. 

12 
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The position of the cursor is important before loading a file. 
Documents start loading at the cursor position, so be sure to 
press START twice or OPTION-SHIFT-CLEAR (Erase All) to 
move the cursor to the start of text, unless you want to merge 
two documents. When you press CTRL-L to load, the com- 
mand line turns green to warn you if the cursor is not at the 
top of the document. 

To merge two or more files, simply load the first file, 
press CTRL-Z to move the cursor to the end of the document, 
and then load the file you want to merge. Do not place the 
cursor somewhere in the middle of your document before 
loading. A load does not insert the text from tape or disk, but 
overwrites all text after the cursor position. The last character 
loaded becomes the new end-of-text pointer, and you cannot 
access any text that appears ahead of this pointer. 

Since SpeedScript stores files in ASCII (American Standard 
Code for Information Interchange), you can load any ASCII 
file with SpeedScript. You could write a BASIC program with 
SpeedScript, save it on disk, then use ENTER to read the file 
from BASIC. In BASIC, you can store a program in ASCII 
form with LIST "D:filename" for disk or LIST "C:" for tape, 
ready to load with SpeedScript. You can even load files pro- 
duced by most other word processors, and most other Atari 
word processors can read SpeedScript files. You can make full 
use of SpeedScript 's editing features to prepare ASCII files for 
the Atari Assembler /Editor ; MAC/65, and most other Atari 
assemblers. And SpeedScript files can be transferred via modem 
with your favorite telecommunications program that handles 
ASCII. 

Disk Commands 

Sometimes you forget the name of a file, or need to delete or 
rename a file. SpeedScript provides a unique mini-DOS for 
your convenience. Just press CTRL-M {menu). SpeedScript 
reads the entire disk directory and puts it on the screen in 
three columns. A large cursor shows you which file is cur- 
rently selected. Use the cursor keys to move the cursor to the 
file you want to select. A menu at the bottom of the screen 
shows you what keys you need to press. Press CTRL-D to de- 
lete the selected file, R to rename, L to lock, U to unlock, or F 
to format the disk. You can load the selected file by pressing 
CTRL-L. The position of the cursor within your document is 
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not important when loading a file from the menu — SpeedScript 
always erases anything you previously had in memory. 

Any changes you make to the directory will not show up 
until you call up the directory again. Press either 1, 2, 3, or 4 
to update the directory from drives 1-4. This also sets the de- 
fault disk drive, the drive accessed for further changes. When 
you're ready to return to writing, press either ESC or the RE- 
TURN key. 

Additional Features 

SpeedScript has a few commands that don't do much, but are 
nice to have. CTRL-X exchanges the character under the 
cursor with the character to the right of the cursor. Thus, you 
can fix transposition errors with a single keystroke. CTRL-A 
changes the character under the cursor from uppercase to 
lowercase or vice versa. 

Press CTRL-B to change the background and border col- 
ors. Each time you press CTRL-B, one of 128 different back- 
ground colors appears. Press CTRL-T (text) to cycle between 
one of eight text luminances. The colors are preserved until 
you change them or reboot SpeedScript. 

If your TV suffers from overscanning, some characters on 
the left or right margin may be chopped off. Atari SpeedScript 
lets you widen and narrow the width of the screen. Press 
OPTION-CTRL- + (the cursor-left key) to decrease the width 
of the screen. Each time you press it, the text is reformatted, 
and the left and right screen margins are adjusted by one 
character. You can decrease the width all the way down to two 
characters (although if your screen overscans that much, it's 
time to buy a new TV). To increase the width, to a maximum 
of 40 (the default width), press OPTION-CTRL-* (the cursor- 
right key). 

One disadvantage of word-wrapping is that it's hard to 
tell exactly how many spaces are at the end of a screen line. 
When a word too long to fit on a line is wrapped to the next 
line, the hole it left is filled with "false" spaces. That is, the 
spaces are not actually part of your text and won't appear on 
paper. If you want to distinguish between true spaces and 
false spaces, press CTRL-O (on/off). The false spaces become 
tiny dots. You can write and edit in this mode if you wish, or 
turn off the feature by pressing CTRL-O again. 
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Atari SpeedScript disables the BREAK and inverse-video 
keys when you're entering or editing text. The inverse-video 
key was disabled because it is frequently pressed by accident 
on the 800 and 800XL models. If you want to enter inverse- 
video characters, hold down SELECT while typing the keys. 

Atari 400 and 800 owners will notice that the action of 
the CAPS/LOWR key has been changed in SpeedScript. It 
works like the CAPS key on the XL and XE models. Press it 
once to switch to uppercase, and again to switch to lowercase. 
In other words, the CAPS/LOWR key toggles between upper- 
case and lowercase. You can still use SHIFT-CAPS/LOWR to 
force entry to all uppercase. CTRL-CAPS/LOWR has no 
effect. 

Pressing SYSTEM RESET returns you to SpeedScript with- 
out erasing your text when using Atari DOS. With OS/A + 
DOS, SYSTEM RESET returns you to the DOS command 
prompt. You can get back to SpeedScript without losing any 
text if you type RUN at the prompt. 

PRINT! 

If you already think SpeedScript has plenty of commands, wait 
until you see what the printing package offers. SpeedScript 
supports an array of powerful formatting features. It automati- 
cally fits your text between left and right margins which you 
can specify. You can center a line or block it against the right 
margin. SpeedScript skips over the perforation on continuous- 
form paper, or it can wait for you to insert single-sheet paper. 
A line of text can be printed at the top of each page (a header) 
and/or at the bottom of each page (a footer), and can include 
automatic page numbering, starting with whatever number 
you like. (See page 19 for a summary of the formatting 
commands.) 

SpeedScript can print on different lengths and widths of 
paper, and single-, double-, triple-, or any-spacing is easy. You 
can print a document as big as can fit on a tape or disk by 
linking several files together during printing. You can print to 
the screen or to a file instead of to a printer. Other features let 
you send special codes to the printer to control features like 
underlining, boldfacing, and double-width type (depending on 
the printer). 
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But with all this power comes the need to learn additional 
commands. Fortunately, SpeedScript sets most of these vari- 
ables to a default state. If you don't change these settings, 
SpeedScript assumes a left margin of 5, a right margin position 
of 75, no header or footer, single-spacing, and continuous- 
paper page feeding. You can change these default settings if 
you want (see below). Before printing, be sure the paper in 
your printer is adjusted to top-of-form (move the paper 
perforation just above the printing element). One additional 
note: Some printers incorporate an automatic skip-over- 
perforation feature. The printer skips to the next page when it 
reaches the bottom of a page. Since SpeedScript already con- 
trols paper feeding, you need to turn off this automatic skip- 
over-perf feature before running SpeedScript, or paging won't 
work properly. 

To begin printing, simply press CTRL-P. SpeedScript 
prompts "Print: (Device:Filename)>". You can print to almost 
any device, even disk or cassette. If you enter E (for Editor), 
SpeedScript prints to the screen, letting you preview where 
lines and pages break. Enter P to Print for most printers. If 
your printer is attached, powered on, and selected (online), 
SpeedScript begins printing immediately. To cancel printing, 
hold down the BREAK key until printing stops. You can use 
CTRL-1 to pause printing. Press CTRL-1 again to continue. 

If you need to print to an RS-232 printer, just Print to a 
disk file, then boot up your DOS master disk and use the copy 
selection to copy the print file to the R: device. You can also 
write BASIC programs to read and process a Printed disk file. 
Remember, a Print to disk is not the same as a Save to disk. 

Formatting Commands 

The print formatting commands must be distinguished from 
normal text, so they appear onscreen in inverse video with the 
text and background colors switched. As mentioned above, the 
regular inverse-video key is not used for entering inverse- 
video text. Instead, hold down the SELECT key while typing 
the format key. All lettered printer commands should be en- 
tered in lowercase (unSHIFTed). During printing, SpeedScript 
treats these characters as printing commands. 

There are two kinds of printing commands, which we'll 
call Stage 1 and Stage 2. Stage 1 commands usually control 
variables such as left margin and right margin. Most are fol- 
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lowed by a number, with no space between the command and 
the number. Stage 1 commands are executed before a line is 
printed. 

Stage 2 commands, like centering and underlining, are 
executed while the line is being printed. Usually, Stage 1 com- 
mands must be on a line of their own, although you can group 
several Stage 1 commands together on a line. Stage 2 com- 
mands are by nature embedded within a line of text. Again, 
remember to hold down SELECT to enter the boldface charac- 
ters shown here. 

Stage 1 Commands 

1 Left margin. Follow with a number from to 255. Use 
for no margin. Defaults to 5. 

r Right margin position, a number from 1 to 255. Defaults 
to 75. Be sure the right margin value is greater than the left 
margin value, or SpeedScript will go bonkers. 

t Top margin. The position at which the first line of text is 
printed, relative to the top of the page. Defaults to 5. The 
header (if any) is always printed on the first line of the page, 
before the first line of text. 

b Bottom margin. The line at which printing stops before 
continuing to the next page. Standard 8-1/2 X 11 inch paper 
has 66 lines. Bottom margin defaults to line 58. Don't make 
the bottom margin greater than the page length. 

p Page length. Defaults to 66. If your printer does not 
print six lines per inch, multiply lines-per-inch by 11 to get the 
page length. European paper is usually longer than American 
paper — 11-5/8 or 12 inches. Try a page length of 69 or 72. 

s Spacing. Defaults to single-spacing. Follow with a num- 
ber from 1 to 255. Use 1 for single-spacing, 2 for double- 
spacing, 3 for triple-spacing. 

@ Start numbering at page number given. Page number- 
ing normally starts with 1. 

? Disables printing until selected page number is reached. 
For example, a value of 3 would start printing the third page 
of your document. Normally, SpeedScript starts printing with 
the first page. 

x Sets the page width, in columns (think a cross). Defaults 
to 80. You need to change this for the sake of the centering 
command if you are printing in double-width or condensed 
type, or if you are using a 40-column or wide-carriage printer. 
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Formatting Commands Enter with select 



Command 



Default 



Command 



Default 



Qbottom margin 58 
^centering 

Jedge right 
Qdefine footer 
Qgoto linked file 

Bdefine header 

I information 

J select linefeeds 
||left margin 5 

Q margin release 

1 next page 



2 page length 66 

Bright margin 75 

^spacing j 

Qtop margin 5 

{{underline toggle 

J page wait off 

3 columns across 80 

Qpage number 

3 starting page number 1 
Qprint starting with * 1 



n Forced paging. Normally, SpeedScript prints the footer 
and moves on to the next page only when it has finished a 
page, but you can force it to continue to the next page by issu- 
ing this command. It requires no numbers. 

m Margin release. Disables the left margin for the next 
printed line. Remember that this executes before the line is 
printed. It's used for outdenting. 

w Page wait. This command should be placed at the 
beginning of your document before any text. With page wait 
turned on, SpeedScript prompts you to "Insert next sheet, press 
RETURN" when each page is finished printing. Insert the next 
sheet, line it up with the printhead, then press RETURN to 
continue. Page wait is ignored during disk or screen output. 

j Select automatic linefeeds after carriage return. Like w, 
this command must be placed before any text. Don't use this 
command to achieve double-spacing, but only if all text prints 
on the same line. 

i Information. This works like REM in BASIC. You follow 
the command with a line of text, up to 255 characters., ending 
in a return-mark. This line will be ignored during printing and 
is handy for making such notes to yourself as the filename of 
the document. 
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h Header define and enable. The header must be a single 
line of text (up to 254 characters) ending in a return-mark. The 
header prints on the first line of each page. You can include 
Stage 2 commands such as centering and page numbering in a 
header. You can use a header by itself without a footer. The 
header and footer should be defined at the top of your docu- 
ment, before any text. If you want to prevent the header from 
printing on the first page, put a return-mark by itself at the 
top of your document before the header definition. 

f Footer define and enable. The footer must be a single 
line of text (up to 254 characters) ending in a return-mark. The 
footer prints two lines prior to the last line of each page. As 
with the header, you can include Stage 2 printing commands, 
and you don't need to set the header to use a footer. 

g Go to (link) next file. Put this command as the last line 
in your document. Follow the command with the filename, 
including D: for disk. After the text in memory is printed, the 
link command loads the next file into memory. You can con- 
tinue linking in successive files, but don't include a link in the 
last file. Before you start printing a linked file, make sure the 
first of the linked files is in memory. When printing is fin- 
ished, the last file linked to will be in memory. 

Stage 2 commands 

These commands either precede a line of text or are embedded 
within one. 

c Centering. Put this at the beginning of a line you want 
to center. This will center only one line ending in a return- 
mark. Repeat this command at the beginning of every line you 
want centered. Centering uses the page-width setting (see 
above) to center the line properly. To center a double-width 
line, either set the page width to 40 or pad out the rest of the 
line with an equal number of spaces. If you use double- width, 
remember that the spaces preceding the centered text will be 
double-wide spaces. 

e Edge right. This works in the same manner as centering, 
but it blocks the line flush with the right margin. 

# When SpeedScript encounters this command, it prints 
the current page number. You usually embed this within a 
header or footer. 
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u A simple form of underlining. It works only on printers 
that recognize CHR$(8) as a backspace and CHR$(95) as an 
underline character. Underlining works on spaces, too. Use the 
first u to start underlining and another one to turn off 
underlining. 

Fonts and styles 

Most dot-matrix printers are capable of more than just printing 
text at ten characters per inch. Some printers have several 
character sets, with italics and foreign language characters. 
Most can print in double-width (40 characters per line), con- 
densed (132 characters per line), and in either pica or elite. 
Other features include programmable characters, pro- 
grammable tab stops, and graphics modes. Many word proces- 
sors customize themselves to a particular printer, but 
SpeedScript was purposely designed not to be printer-specific. 
Instead, SpeedScript lets you define your own Stage 2 printing 
commands. 

You define a programmable printkey by choosing any 
character that is not already used for other printer commands. 
The entire uppercase alphabet is available for printkeys, and 
you can choose letters that are related to their function (like D 
for double- width). You enter these commands like printer 
commands, by holding down SELECT while you type them. 
The printkeys are like variables in BASIC. 

To define a printkey, just hold down SELECT while you 
type the key you want to assign as the printkey, then an equal 
sign ( = ), and finally the ASCII value to be substituted for the 
printkey during printing. Now, whenever SpeedScript en- 
counters the printkey embedded in text, it prints the character 
with the ASCII value you previously defined. 

For example, to define the + key as the letter z, you first 
look up the ASCII value of z (in either your printer manual or 
in any Atari manual). The ASCII value of the letter z is 122, so 
the definition is 

C-122 

Now, anywhere you want to print the letter z, substitute the 
printkey: 

GadBooks! The Eoo is Gany ! 
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This would appear on paper as 

Gadzooks! The zoo is zany! 

More practically, here's how you could program italics on 
an Epson MX-80-compatible printer. You switch on italics by 
sending an ESC (a character with an ASCII value of 27), then 
the character 4. You turn off italics by sending ESC 5. So de- 
fine SHIFT-E as the escape code. Anywhere you want to print 
a word in italics, bracket it with printkey E, then 4, and 
printkey E, then 5: 

The word d4italics[15 is in italics 



You can similarly define whatever codes your printer uses 
for features like double-width or emphasized mode. For your 
convenience, four of the printkeys are predefined, though you 
can change them. Keys 1-4 are defined as 27, 14, 15, and 18, 
common values for most printers. On most printers, CHR$(27) 
is the ESCape key, CHR$(14) starts double-width, CHR$(15) 
either stops double-width or starts condensed characters, and 
CHR$(18) usually cancels condensed characters. 

SpeedScript actually lets you embed any character within 
text, so you may prefer to put in the actual printer codes as 
part of your text. To set italics, you could just press ESC twice, 
then 4. The ESC key appears in text as a mutant E. Double- 
width has a value of 14, the same value as CTRL-N. To start 
double-width, just embed a CTRL-N. Remember that you 
must press ESC before any CTRL key to get it to appear in 
text. CTRL keys appear as small "shadowed" capital letters. 
These characters, though, are counted as part of the length of 
a line, and excessive use within one line can result in a shorter 
than normal line. It can be more convenient to use the 
printkeys, since if you ever change printers, you have to 
change only the definitions of the keys. 

Keep one thing in mind about printkeys: SpeedScript al- 
ways assumes it is printing to a rather dumb, featureless 
printer, the least common denominator. SpeedScript doesn't 
understand the intent of a printkey; it justs sends out its value. 
So if you make one word within a line double-width, it may 
make the line overflow the specified right margin. There's no 
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way for SpeedScript to include built-in font and typestyle codes 
without being customized for a particular printer since no set 
of codes is universal to all printers. 

Hints and Tips 

It may take you awhile to fully master SpeedScript, but as you 
do, you'll discover many ways to use the editing and format- 
ting commands. For example, there is a simple way to simu- 
late tab stops, say, for a columnar table. Just type a period at 
every tab stop position. Erase the line with CTRL-E, then re- 
store it with CTRL-R multiple times. When you are filling in 
the table, just use word left/word right to jump quickly be- 
tween the periods. Or you can use the programmable print- 
keys to embed your printer's own commands for setting and 
jumping to tab stops. 

You don't have to change or define printer commands 
every time you write. Just save these definitions and load this 
file each time you write. You can create many custom defi- 
nition files and have them ready to use on disk. You can cre- 
ate customized "fill-in-the-blank" letters. Just type the letter, 
and everywhere you'll need to insert something, substitute a 
unique character, such as an * or a CTRL character. When 
you're ready to customize the letter, use Find to locate each 
symbol and insert the specific information. Instead of typing 
an oft-used word or phrase, substitute a unique character, then 
use CTRL-G to globally change these characters into the actual 
word or phrase. You can even use SpeedScript as a simple fil- 
ing program. Just type in all your data, flagging each field 
with a unique character. You can use Find to quickly locate 
any field. 
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Entering 
SpeetiScript 



The Machine 

Language Editor: 

MLX 

Two program-entry aids written in BASIC are included here to make 
typing in SpeedScript as easy as possible. The first, "MLX," is explained 
in this article. The second, "The Automatic Proofreader," is a short pro- 
gram that will help you type in MLX without typing mistakes. Read the 
instructions for using the Automatic Proofreader later in this chapter 
before you type in the MLX program. 



"MLX" is a new way to enter long machine language (ML) 
programs with a minimum of fuss. MLX lets you enter the 
numbers from a special list that looks similar to BASIC DATA 
statements. It checks your typing on a line-by-line basis. It 
won't let you enter illegal characters when you should be typ- 
ing numbers. It won't let you enter numbers greater than 255 
(forbidden in ML). And it won't let you enter the wrong num- 
bers on the wrong line. In addition, MLX creates a ready-to- 
use tape or disk file. 

using MLX 

Type in and save MLX, Program 2-1 (you'll want to use it in 
the future). When you're ready to type in SpeedScript, run 
MLX. MLX asks you for three numbers: the starting address, 
the ending address, and the run/init address. These numbers 
for SpeedScript are 

Starting Address? 7936 
Ending Address? 16229 
Run/init Address 7936 

Next, you'll be asked "Tape or Disk." SpeedScript can be 
saved as either a binary file on disk or as a boot tape. Press T 
for use with a tape drive. If you press D for disk, you'll be 
asked "Boot Disk or Binary File." Press F to select the Binary 
File option. Although you could save SpeedScript as an auto- 
booting disk, it makes no sense, since such a disk cannot con- 
tain DOS, which is necessary for file-oriented disk access. 

The screen will then show the first prompt, the number 
7936 followed by a colon. Type in each three-digit number 
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shown in the listing. You do not need to type the comma 
shown in the listing; MLX inserts the comma automatically. 
The prompt is the current line you are entering from the list- 
ing. It increases by six each time you enter a line. That's be- 
cause each line has seven numbers — six actual data numbers 
plus a checksum number. The checksum verifies that you 
typed the previous six numbers correctly. If you enter any of 
the six numbers wrong, or if you enter the checksum wrong, 
the computer rings a buzzer and prompts you to reenter the 
line. If you enter it correctly, a bell tone sounds and you con- 
tinue to the next line. 

MLX accepts only numbers as input. If you make a typing 
error, press the DELETE/BACK S key; the entire number is 
deleted. You can press it as many times as necessary back to 
the start of the line. If you enter three-digit numbers as listed, 
the computer automatically prints the comma and goes on to 
accept the next number. If you enter less than three digits, you 
can press the comma key, the space bar, or the RETURN key 
to advance to the next number. The checksum automatically 
appears in inverse video for emphasis. 

MLX Commands 

When you finish typing an ML listing (assuming you type it 
all in one session), you can then save the completed program 
on tape or disk. Follow the screen instructions. If you get any 
errors while saving, you probably have a bad disk or the disk 
is full or you made a typo when entering the MLX program 
itself. 

Fortunately, you don't have to enter all of SpeedScript in 
one sitting. MLX lets you enter as much as you want, save it, 
and then reload the file from tape or disk later. MLX rec- 
ognizes these commands: 

CTRL-S Save 

CTRL-L Load 

CTRL-N New Address 

CTRL-D Display 

To issue a command, hold down the CTRL key (CON- 
TROL on the XL models) and press the indicated key. When 
you enter a command, MLX jumps out of the line you've been 
typing, so we recommend you do it at a new prompt. Use the 
Save command (CTRL-S) to save what you've been working 
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on. It will save on tape or disk as if you've finished, but the 
tape or disk won't work, of course, until you finish the typing. 
Remember to make a note of the address where you stop. The 
next time you run MLX, answer all the prompts as you did 
before — regardless of where you stopped typing — then insert 
the disk or tape. When you get to the line number prompt, 
press CTRL-L to reload the partly completed file into memory. 
Then use the New Address command to resume typing. 

To use the New Address command, press CTRL-N and 
enter the address where you previously stopped. The prompt 
will change, and you can then continue typing. Always enter a 
New Address that matches up with one of the line numbers in 
the MLX-format listing, or the checksum won't work. The Dis- 
play command lets you display a section of your typing. After 
you press CTRL-D, enter two addresses within the line-number 
range of the listing. You can break out of the listing display 
and return to the prompt by pressing any key. 

Program 2-1. MLX: The Machine Language Editor 

Refer to the "Automatic Proofreader" article before typing in this program. 

DA 100 GRAPHICS : DL = PEEK ( 560 ) +256*PEEK ( 56 1 ) +4 

:POKE DL-1 , 71 :POKE DL+2,6 
NJ110 POSITION 8,0:? " ML X " : POS I T I ON 23,0:? "C 

EEBEBB^gaBB S" : POKE 710,0:? 
JK 120 ? "Starting Address ";: INPUT BES:? " En 

ding Address" ;: INPUT FIN:? "Run/Init Ad 

dress"; : INPUT STARTADR 
OD 130 DIM A(6) , BUFFER*(FIN-BEG+127) , T* (20) , F* 

(20) , CIO* (7) , SECTOR* (128) , DSKINV* (6) 
JJ 140 OPEN #1 ,4,0, "K: ": ? :? , "Dape or Sisk:"j 
W 150 BUFFER*=CHR* (0) : BUFFER* ( F I N-BEG+30 ) =BUF 

FER*: BUFFER* (2) =BUFFER*: SECTOR*=BUFFER* 
GC 160 ADDR = BEG: C I 0*= " hhh " : C I O* ( 4 ) =CHR* ( 170 ) : C 

I0*(5)="LV":CI0*(7) =CHR* (228) 
EJ 170 GET #1, MEDIA: IF MEDIAOB4 AND MEDIA06B 

THEN 170 
PO 180 ? CHR* (MEDIA) : ? : IF MED I A< >ASC ( " T " ) THE 

N BUFFER*=" " : GOTO 250 
PL 190 BEG = BEG-24: BUFFER* = CHR*(0) : BUFFER* (2) =C 

HR* (INT( (FIN-BEG+127>/128) ) 
KF 200 H=INT (BEG/256) : L = BEG-H* 256 : BUFFER* ( 3 ) =C 

HR* (L) : BUFFER* (4) =CHR* (H) 
EC 210 PINIT = BEG + 8: H=INT(PINIT/256) :L = PINIT-H* 

256: BUFFER* (5)=CHR* (L) : BUFFER* (6) =CHR$ ( 

H) 
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HI 250 


DO 260 


LI 270 


EH 280 


PJ 290 
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PB 220 FOR 1=7 TD 24:READ A : BUFFER* ( I ) = CHR* ( A ) 

:NEXT I:DATA 24,96,169,60,141,2,211,169 

,0, 133, 10, 169,0, 133, 11,76,0,0 
DP 230 H=INT (ST ART ADR/ 256) :L = STARTADR-H*256:BU 

FFER* ( 15) =CHR* (L) : BUFFER* ( 19)=CHR* (H) 

BUFFER* (23) =CHR* (L) : BUFFER* (24)=CHR* (H) 

IF MEDIAOASC ( "D" > THEN 360 

? :? "Boot Eisk or Binary Lai 1 e : " ; 

GET #1,DTYPE:IF DTYPE< >6B AND DTYPEO70 
THEN 270 

? CHR* <DTYPE) : IF DTYPE=70 THEN 360 

BEG=BEG-30: BUFFER*=CHR*(0) : BUFFER* (2) =C 

HR* (INT( (FIN-BEG+127)/12S) ) 
KG 300 H=INT (BEG/ 256) :L = BEG-H*256: BUFFER* (3) =C 

HR* (L) : BUFFER* (4) =CHR* (H) 
HH310 PINIT = STARTADR:H=INT(PINIT/256) :L = PINIT 

-H*256: BUFFER* (5) =CHR*(L): BUFFER* (6) =CH 

R* (H) 
AO 320 RESTORE 330:FOR 1=7 TO 30:READ A:BUFFER 

* ( I )=CHR* (A) : NEXT I 
8A 330 DATA 169,0,141,231,2,133,14,169,0,141,2 

32, 2, 133, 15, 169, 0, 133, 10, 169, 0, 133, 11,2 

4,96 
OB 340 H= I NT (BEG/256) :L=BEG-H*256: BUFFER* (8) =C 

HR* (L) : BUFFER* (15)=CHR*(H) 
DO 350 H=INT(STARTADR/256):L = STARTADR-H*256:BU 

FFER* (22) =CHR*(L): BUFFER* (26) =CHR*(H) 
JP 360 GRAPHICS 0:POKE 712,10:POKE 710,10:POKE 

709, 2 
JK 370 ? ADDR; " : " ; : FOR J = l TO 6 

NF 380 GOSUB 570: IF N = -l THEN J = J-l:GOTO 380 
BF 390 IF N = -19 THEN 720 

01400 IF N = -12 THEN LET READ=l:GOTO 720 
AI410 TRAP 410: IF N = -14 THEN ? :? "New Addres 

s";: INPUT ADDR:? :GOTO 370 
HO 420 TRAP 40000: IF NO-4 THEN 480 
M 430 TRAP 430:? :? " D i sp 1 ay : Fr om " ; : I NPUT F:? 

, "To" ;: INPUT T:TRAP 32767 
HL440 IF F<BEG OR F>FIN OR T<BEG OR T>FIN OR 

T<F THEN ? CHR* (253) ; "At least ";BEG;", 
Not More Than ";FIN:GOTO 430 
m 450 FOR I=F TO T STEP 6:? :? I ;":";: FOR K=0 
TO 5: N=PEEK (ADR (BUFFER*) +I+K -BEG) :T*=" 

000" :T*(4-LEN(STR*(N) ) )=STR*(N) 
HA460 IF PEEK (764) < 255 THEN GET #l,A:POP : POP 

:? :GOTO 370 
FH470 ? T*; " , " ; :NEXT K:? CHR* ( 1 26 ) ; : NE X T I:? 

:? :GOTO 370 
BA 480 IF N<0 THEN ? : GOTO 370 
HH 490 A(J)=N:NEXT J 
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JH 500 CKSUM=ADDR-INT (ADDR/256) *256: FOR 1 = 1 TO 

6: CKSUM=CKSUM+A ( I ) : CKSUM=CKSUM-256 * (CK 
SUM>255) : NEXT I 
RF=128:S0UND , 200 , 1 2 , 8 : GDSUB 570:SDUND 

0, 0, 0, 0: RF=0: ? CHR*<126) 
IF NOCKSUM THEN ? :? " I ncor r ec t " ; CHR* < 
253) ; : ? : GOTO 370 

FOR W=15 TO STEP -1:S0UND 0,50,10,W:N 
EXT W 

FOR 1=1 TO 6:P0KE ADR ( BUFFER* ) +ADDR-BEG 
+1-1 , A ( 1 ) : NEXT I 

ADDR=ADDR+6: IF ADDR<=FIN THEN 370 
GOTO 710 
N=0: Z=0 

GET #1,A:IF A=155 OR A = 44 OR A=32 THEN 
670 

IF A<32 THEN N=-A:RETURN 
IF A<>126 THEN 630 

GOSUB 690: IF 1=1 AND T=44 THEN N=-l:? C 
HR* ( 126) ; :GOTO 690 
GOTO 570 

IF A<48 OR A>57 THEN 580 
? CHR* (A+RF) ; : N=N*10+A-4B 

IF N>255 THEN ? CHR* ( 253 ) ; : A= 1 26 : GOTO 6 
00 

Z=Z+1:IF Z<3 THEN 580 

IF Z=0 THEN ? CHR* (253) ;: GOTO 570 
? " , " ; : RETURN 
POKE 752,1:F0R 1=1 TO 3:7 CHR* ( 30 ) ; : GET 

#6,T:IF T<>44 AND T<>58 THEN ? CHR*(A) 
; :NEXT I 

POKE 752,0:? " "; CHR* ( 1 26 );: RETURN 
GRAPHICS 0:POKE 710,26:POKE 712,26:P0KE 

709, 2 
IF MEDIA=ASC< " T " ) THEN 890 

rem wEsmm 

IF READ THEN ? s? "Load File":? 

IF DTYPEO70 THEN 1040 

? :? "Enter AUTORUN.SYS -for automatic u 

58"!? :? "Enter fi lename": INPUT T* 

F* = T*:IF LEN(T*)>2 THEN IF T*(1,2X>"D: 

" THEN F*="D: " :F*(3) =T* 

TRAP 870:CLOSE #2:0PEN #2 , 8-4 *READ , , F* 

: ? : ? "Worki ng..." 

IF READ THEN FOR 1=1 TO 6:GET #2,A:NEXT 

I: GOTO 820 
PUT #2,255:PUT #2,255 
H»INT (BEG/256) : L=BEG-H*256 : PUT #2,L:PUT 

#2,H:H=INT(FIN/256) :L=FIN-H*256:PUT #2 
,L:PUT #2,H 
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KK 510 


CN 520 


EK 530 


FL 540 


HB 550 


en 560 


FI 570 


PH 580 


Ffi 590 


EB 600 


HL 610 


SN 620 


6J 630 


AN 640 


EB 650 


EH 660 


JH 670 


KC 680 


NO 690 


PI 700 


KH 710 


FF 720 


OJ 730 


OK 740 


IS 750 


AE 760 


SF 770 


Hi 780 


JH 790 


PO 800 


DJ 810 
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NF 820 
IF 830 
FD 840 



GC 850 

HF 860 
FO 870 

K 880 
HH 890 
HI 900 

LP 910 
JH 920 

NH 930 
5C 940 

HF 950 
CD 960 

HB 970 



GOSUB 
IF ST 
PUT # 
: H=IN 
UT #2 
TRAP 
AD TH 
END 
? "Er 
":? F 
REM ■ 
IF RE 
? : ? 

PLAY 
? : ? 
TRAP 
" C : " : 
GOSUB 
CLOSE 
: IF R 
END 
? : ? 
Mr i t i 
REM 



970:IF PEEK<195>>1 THEN 870 
ARTADR=0 OR READ THEN 850 
2,224:PUT #2,2:PUT #2,225:PUT #2,2 
T<STARTADR/256):L=STARTADR-H*256:P 
,L:PUT #2,H 

40000:CLOSE #2:? " F i n i shed . " : I F RE 
EN ? : ? :LET READ=0: GOTO 360 

ror "; PEEK ( 195) ; " trying to access 
*:CLOSE #2:? : GOTO 760 

AD THEN ? :? "Read Tape" 

:? "Insert, Rewind Tape.":? "Press 
";:IF NOT READ THEN ? " & RECORD" 

"Press l:iajii];»: when ready:"; 

960:CLOSE #2:0PEN #2 , 8-4 *RE AD , 1 28 , 

? : ? "Working. . . " 
970: IF PEEK(195)>1 THEN 960 
#2:TRAP 40000:? "Finished.":'? :? 

EAD THEN LET READ=0:GGTO 360 

"Error " ; PEEK ( 1 95 ) ; " when reading/ 
ng boot tape":? : CLOSE #2:G0T0 890 



IO LoadAave FileS2 < 



for write, REOD=i for- rea 



EA 980 X 
EF 990 I 
8 
HD 1000 



FH 1010 
HD 1020 



BG 
KA 

GC 
HE 
FC 
EC 
CP 



1030 
1040 
1050 
1060 
1070 
1080 
1090 



AC 1 100 



LE 1110 
LI 1 120 
ID 1 130 



= 32: 
CCOM 
35 

H=IN 
-H*2 
,H 
L = FI 
E IC 
POKE 
,X> 
POKE 
REM 
IF R 
? : ? 
GET 
? CH 
? : ? 
: " : ? 
NR=I 
BEG + 

II 

? "W 
FOR 
IF R 
127) 



REM File#2,*20 

=834: ICBADR=B36: ICBLEN=840: ICSTAT= 



T (ADR (BUFFER*) / 
56:P0KE ICBADR+ 



/256) : L=ADR (BU 
X,L:POKE ICBA 



N-BEG+l:H=INT(L/256) :L=L-H*2 
BLEN+X,L:POKE I CBLEN+X + 1 , H 
ICCOM+X, 11-4*READ:A=USR(ADR 



FFER*) 
DR+X+1 

56: POK 

(CIO*) 



195, PEEK ( ICSTAT) 

EAD THEN 1100 

"Format Disk 

#1 , A: IF A<>78 

R* (A) : IF A=78 



RETURN 



In Dr i ve 1? ( Y/N) : " ; 
AND A<>89 THEN 1070 
THEN 1100 
. " : XIO 254, #2,0,0, "D 



"Formatting. . . 

"Format Complete":? 
NT( (FIN-BEG+127)/ 128): BUFFER* (FIN- 
2) =CHR* (0) : IF READ THEN ? "Reading 
:GOTO 1120 
ri ting. . . " 
1=1 TO NR:S=I 

EAD THEN GOSUB 1 220 : BUFFER* ( I * 1 28- 
=SECTOR*:GOTO 1160 
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PL 
AM 

m 

FB 
GN 
DH 
JJ 

Kl 

BL 
IG 
!H 
MP 
EG 
KJ 
BN 
GL 

NL 
AI 
OA 
PN 
CA 
PF 



1 140 

1 150 

1 160 

1 170 

1 180 

1 190 
1200 

1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 

1300 
1310 
1320 
1330 
1340 
1350 



BP 1360 

CO 1370 

PD 1380 

AA 1390 

KJ 1400 

KG 14 10 



SECTO 

GOSUB 

IF PE 

NEXT 

IF N 

? : ? 

? "Er 

■forma 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

BASE = 

DUNIT 

+ 3 

DBUFL 

DBYTL 

DAUX1 

REM D 

DSKIN 

POKE 

6) :L = 

POKE 

POKE 

POKE 

POKE 

K (DAU 

A = USR 

RETUR 



R*=BUFFER 

1220 
EK (DSTATS 
I 

OT READ T 
:LET READ 
r or on d i 
1 1 i n g . " : G 



* < I*12B-127) 

)<>1 THEN 1200 

HEN END 
=0:GOTO 360 
sk access.":? ' 
OTO 1040 



May need 



SECTOR ACCESS SUBROU 



rive ONE 

ass bu-ffer 

ector # i 

EAD=1 for 

EAD = -for 

3*256 

=BASE+1:DC0MND=BASE+2:DGTATS=BASE 



>r in SECTOR* 
n vari ab 1 e S 
read , 
wr i te 



= BA 
= BA 
= BAS 
IM D 
V*=" 
DUNI 
A-25 
DBUF 
DBUF 
DCOM 
DAUX 
X2) * 
(ADR 
N 



SE + 4: 
SE + 8: 
E+10: 
SKINV 
hLS" : 
T, 1 : A 
6*H 
HI , H 
LO, L 
ND, 87 
2, INT 
256 
(DSKI 



DBUFHI=BASE+5 

DBYTHI=BASE+9 

DAUX2=BASE+1 1 

* (4) 

DSKINv'*(4>=CHR*(228> 

= ADR (SECTOR*) :H=INT(A/25 



-5*READ 

(S/256):P0KE DAUX1.S-PEE 



NV*) ) 
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The Automatic 
Proofreader 

At last there's a way for your computer to help you check your typing. 
"The Automatic Proofreader" will make entering programs faster, easier, 
and more accurate. 



The strong point of computers is that they excel at tedious, 
exacting tasks. So why not get your computer to check your 
typing for you? 

"The Automatic Proofreader" will help you type in 
"MLX" program listings without typing mistakes. It is a short 
error-checking program that hides itself in memory. When ac- 
tivated, it lets you know immediately after typing a line from 
a program listing if you have made a mistake. Please read 
these instructions carefully before typing the MLX program. 

Preparing the Proofreader 

1. Type in the Proofreader (Program 2-2). Be very careful 
when entering the DATA statements — don't type an I in- 
stead of a 1, an O instead of a 0, extra commas, and so on. 

2. Save the Proofreader on tape or disk at least twice before 
running it for the first time. 

3. After the Proofreader is saved, type RUN. It will check itself 
for typing errors in the DATA statements and warn you if 
there's a mistake. Correct any errors and save the corrected 
version. Keep a copy in a safe place — you'll need it again 
and again when typing in programs from other COMPUTE! 
books or COMPUTE! magazine. 

4. When a correct version of the Proofreader is run, the 
following message will appear on the screen: "Automatic 
Proofreader Now Activated." Type NEW and press RE- 
TURN. You are now ready to enter the MLX program list- 
ing. If you press SYSTEM RESET, the Proofreader is 
disabled. To reactivate it, just type PRINT USR(1536) and 
press RETURN. 
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Using the Proofreader 

The MLX program listing has a checksum found immediately 
to the left of each line number. Don't enter the checksum when 
typing in a program. It is just for your information. 

When you type in a line from the program listing and 
press RETURN, the Proofreader displays the checksum letters 
at the top of your screen. These checksum letters must match the 
checksum letters in the printed listing. If they don't match, it 
means you typed the line differently from the way it is listed. 
Immediately recheck your typing. You can correct any mis- 
takes you find. 

The Proofreader is not picky with spaces. It will not no- 
tice extra spaces or missing ones. This is for your convenience 
since spacing is generally not important. But occasionally 
proper spacing is important, so be extra careful with spaces. 
The Proofreader will catch practically everything else that can 
go wrong. Characters in inverse video will appear like this: 



INVERSE VIDEi 



Enter these characters with the Atari key. 

Due to the nature of a checksum, the Proofreader will not 
catch all errors. The Proofreader will not catch errors of trans- 
position. In fact, you could type in a line in any order, and the 
Proofreader wouldn't notice. 

There's another thing to watch out for: If you enter a line 
by using abbreviations for commands, the checksum will not 
match up. But there is a way to make the Proofreader check 
the line. After entering the line, LIST it. This eliminates the 
abbreviations. Then move the cursor up to the line and press 
RETURN. It should now match the checksum. You can check 
whole groups of lines this way. The only abbreviation that 
cannot be handled this way is when a question mark (?) is 
used instead of PRINT; they are not the same to the 
Proofreader. 

Program 2-2. The Automatic Proofreader 

100 GRAPHICS 

110 FOR 1 = 1536 TO 1700:READ A.-PQKE I,A:CK = C 

K+A:NEXT I 
120 IF CKO19072 THEN ? "ERROR IN DATA STAT 

EMENTS. CHECK TYP I NG . " : END 
130 A=USR<1536> 
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140 ? :? "AUTOMATIC PROOFREADER NOW ACTIVAT 

ED. " 
150 END 

1536 DATA 104,160,0,185,26,3 

1542 DATA 201,69,240,7,200,200 

1548 DATA 192,34,208,243,96,200 

1554 DATA 169,74,153,26,3,200 

1560 DATA 169,6,153,26,3,162 

1566 DATA 0,189,0,228,157,74 

1572 DATA 6,232,224,16,208,245 

1578 DATA 1 69 , 93 , 1 4 1 , 7B , 6 , 1 69 

1584 DATA 6,141,79,6,24,173 

1590 DATA 4,228,105,1,141,95 

1596 DATA 6,173,5,228,105,0 

1602 DATA 141,96,6,169,0,133 

1608 DATA 203,96,247,238,125,241 

1614 DATA 93,6,244,241,115,241 

1620 DATA 124,241,76,205,238,0 

1626 DATA 0,0,0,0,32,62 

1632 DATA 246,8,201,155,240,13 

1638 DATA 201,32,240,7,72,24 

1644 DATA 101,203,133,203,104,40 

1650 DATA 96,72,152,72,138,72 

1656 DATA 160,0,169,128,145,88 

1662 DATA 200,192,40,208,249,165 

1668 DATA 203,74,74,74,74,24 

1674 DATA 105,161,160,3,145,88 

1680 DATA 165,203,41,15,24,105 

1686 DATA 161,200,145,88,169,0 

1692 DATA 133,203,104,170,104,168 

1698 DATA 104,40,96 
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SpeedScript Program 
Listings 



Before you begin typing SpeedScript, you must load and run 
the "MLX" program. Answer the MLX prompts as follows: 

Starting Address? 7936 / I - 

Ending Address? 16229 2>^<WS -e^bua. -dt**U «-* '' 

Run/Init Address 7936 > 3 j & -^ *, i 

Program 2-3. SpeedScript 

To enter this program, you must use Program 2-1, MLX, found earlier in this chapter. 

7936:173, 198, 002, 141, 197, 002^201 j 
7942:032,137,037,169,203,205,021 I 
7948:179,066,141,179,066,240,115 
7954:033,032,031,037,032,080,007 
7960:042,165,012,141,118,03 7,027 
7966:165,013,141,119,037,169,162 
7972:117,133,012,169,037,133,125 z n r> or 



7978:013, 169^000^141,068, 002, 179 
7984 :169,001,133 s , 009, 032, 234, 114 
7990:037,076,072,038,000,000,021 
7996 : 000 , 000 , 000 , 000 , 000 , 000 , 060 
8002 : 000 , 000 , 000 , 000 , 000 , 000 , 066 
8008 : 000 , 000 , 000 , 000 , 000 , 000 , 072 
8014 : 000 , 000 , 000 , 000 , 000 , 000 , 078 
8020 : 000 , 000 , 000 , 000 , 000 , 000 / 084 
8026 : 000 , 000 , 000 , 000 , 000 , 000 , 090 
8032: 000 , 000 , 000 , 000 , 000 , 000 , 096 
8038 : 000 , 000 , 000 , 000 , 000 , 000 ,102 
8044 : 000 , 000 , 000 , 000 , 000 , 000 , 108 
8050 : 000 , 000 , 000 , 000 , 000 , 000 ,114 
8056 : 000 , 000 , 000 , 000 , 000 , 000 ,120 
8062 : 000 , 000 , 000 , 000 , 000 , 000 ,126 
8068 : 000 , 000 , 000 , 000 , 000 , 000 ,13 2 
8074:000,000,000,000,000,000,138 
8080 : 000 , 000 , 000 , 000 , 000 , 000 , 144 
8086 : 000 , 000 , 000 , 000 , 000 , 000 ,150 
8092 : 000 , 000 , 000 , 000 , 000 , 000 ,156 
8098 : 000 , 000 , 000 , 000 , 000 , 000 ,162 
8104 : 000 , 000 , 000 , 000 , 000 , 000 ,168 
8110:000,000,000,000,000,000,174 
8116 : 000 , 000 , 000 , 000 , 000 , 000 , 180 
8122:000,000,000,000,000,000,186 
8128: 000 , 000 , 000 , 000 , 000 , 000 ,192 



a 
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t> 






■ ' 



8134 
8140 
8146 
8152 
8158 
8164 
8170 
8176 
8182 
8188 
8194 
8200 
8206 
8212 
8218 
8224 
8230 
8236 
8242 
8248 
8254 
8260 
8266 
8272 
8278 
8284 
8290 
8296 
8302 
8308 
8314 
8320 
8326 
8332 
8338 
8344 
8350 
8356 
8362 
8368 
8374 
8380 
8386 
8392 
8398 
8404 
8410 
8416 
8422 
8428 



:000, 
1000, 
:000, 
:000, 
-.000, 
:000, 
:000, 
:000, 
: 000, 
:036, 
:000, 
-.000 , 
1000, 
:000, 
:255, 
? 024l 
:024, 
:096, 
:108, 
:000, 
:000, 
:096, 
:024, 
:000, 
:102, 
:126, 
:000, 
:000, 
'.000, 
-.000, 
:006, 
:000, 
:198, 
:024, 
:198, 
:000, 
:198, 
-.204, 
:192, 
:000, 

:p|, 
:024, 
:198, 
-.000, 
:024, 
-.000, 
:048, 
:000, 
:024, 
:000, 



000,000 

000,000 

000,000 

000,000 

000,000 

000,000 

000,000 

000,000 

000,000 

037,045 

000,000 

024,024 

024,000 

000,000 

102,102 

062,096 

000,000 

204,140 

056,112 

024,024 

000,000 

096,048 

012 t _01 

000*10 

000,000 

024,024 

000,000 

000,000 

000,000 

000,048 

012,024 

124,206 

124,000 

024,024 

012,024 

254,012 

124,000 

254,012 

252,006 

124,192 

124,000 

048,096 

198,124 

124,198 

048,000 

048,048 

048,000 

012,02 

012 




,000 


000 


000, 


,000 


,000, 


000, 


,000 


000 


000, 


,000 


,000 


000, 


,000 


,000 


000, 


,000 


000 


000, 


,000 


000, 


000, 


,000 


000, 


000, 


,000 


000, 


000, 


,017 


|000 


000, 


,000 


000, 


000, 


,024 


024, 


024, 


,102 


102, 


102, 


,000 


000, 


102, 


,255 


102 


000, 


,060 


006 


124, 


,204 


216, 


048, 


,000 


,000 


056, 


,222 


204 


118, 


,048 


,000 


000, 


,024 


,048 


096, 


,024 


,000 


,048, 


,012 


,024 


048, 


^060 


255 


060, 


,000 


024 


024, 


,000 


000, 


000, 


,048 


048 


096, 


,000 


126, 


000, 


,000 


000, 


000, 


,048 


000, 


000, 


,048 


096, 


192, 


,222, 


246\, 


230, 


,024 


1356 , 


024, 


,126 


000, 


124, 


,048 


096, 


254, 


,024 


056 


012, 


,028 


060 


108, 


,012 


000, 


254, 


,006 


198, 


124, 


,252 


198 


198, 


,126 


006 


012, 


,096 


000 


124, 


,198 


198 


124, 


,198 


126 


012, 


,000 


048 


048, 


,000 


000 


000, 


,048 


048 


096, 


,048 


096 


048, 


,000 


000 


126, 


,000 


000 


048, 



,198 
,204 
,210 
,216 
,222 
,228 
,234 
,240 
,246 
,131 
,002 
,128 
,088 
,122 
,074 
,148 
,018 
,028 
,102 
,152 
,230 
,124 
,206 
,045 
,236 
,010 
,034 
,230 
,110 
,212 
,244 
,132 
,048 
,206 
,010 
,254 
,164 
,132 
,180 
,116 
,136 
,064 
,210 
,090 
,118 
,052 
,250 
,196 
,136 
,154 
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■ 



o 



8434 
8440 
8446 
8452 
8458 
8464 
8470 
8476 
8482 
8488 
8494 
8500 
8506 
8512 
8518 
8524 
8530 
8536 
8542 
8548 
8554 
8560 
8566 
8572 
8578 
8584 
8590 
8596 
8602 
8608 
8614 
8620 
8626 
8632 
8638 
8644 
8650 
8656 
8662 
8668 
8674 
8680 
8686 
8692 
8698 
8704 
8710 
8716 
8722 
8728 



:024 


012 


006 


012, 


024, 


048, 


:000 


060 


102 


006 


012 


024, 


:000 


024 


000 


124, 


198 


222, 


:214 


220 


224 


060 


000 


124, 


:198 


198 


198 


254 


198 


198, 


:000 


252 


198 


198 


252 


198, 


i£H 


,252 


,000 


,124 


198 


192, 


:192 


,192 


,198 


,124 


000 


248, 


:204 


,198 


198 


,198 


204 


248, 


:000 


,254 


192 


,192 


252 


192, 


:192 


254 


000 


254 


192 


192, 


:252 


192 


192 


192 


000 


124, 


:198 


,192 


222 


198 


198 


124, 


:000 


,198 


,198, 


,198 


254 


198, 


:198 


198 


0001 


,126 


024 


024, 


:024 


024 


024 


126 


000 


062, 


:012 


012 


012 


012 


204 


120, 


:000 


198 


204 


,216 


240 


216, 


:204 


198 


000 


192 


192 


192, 


:192 


192 


,192 


,254 


000 


,198, 


:238 


254 


,214 


,198 


198 


,198, 


:000 


198 


,230 


,246 


254 


,222, 


:206 


,198 


,000 


,124 


,198 


,198, 


:198 


198 


,198 


124 


000 


252, 


:198 


198 


198 


252 


192 


192, 


:000 


,124 


,198 


198 


198 


222, 


:124 


,014 


,000 


,252 


198 


198, 


:252 


216 


,204 


,198 


000 


124, 


:198 


,192 


,124 


,006 


198 


124, 


:000 


,126 


,024 


024 


024 


024, 


:024 


024 


,000 


198 


198 


198, 


i|i98"; 


,198 


,198 


,124 


000 


198, 


:T'98 


,198 


198 


,198 


108 


056, 


:000 


,198 


,198 


,198 


214 


254, 


:238 


,198 


,000 


198 


198 


108, 


:056 


,108 


,198 


198 


000 


102, 


:102 


102 


,060 


024 


024 


024, 


:000 


,254 


,012 


024 


048 


096, 


:192 


254 


000 


030 


024 


024, 


:024 


024 


024 


030 


000 


064, 


:096 


048 


024 


012 


006 


000, 


:000 


240 


048 


048 


048 


048, 


:048 


240 


000 


008, 


028 


054, 


:099 


000 


000 


000 


000 


000, 


:000 


000 


000 


000, 


000 


255, 


:000 


000 


000 


000, 


000 


000, 


:000 


000 


,124 


194 


153 


153, 


:.129) 


153 


,153 


230, 


252 


130, 


:153 


130 


,153 


153, 


131, 


252, 


:124 


194 


153 


158, 


158, 


153, 



,112 
,196 
,054 
,078 
,230 
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063 


173 


105, 


063 


141 


118 


063 


056 


165, 


134 


237 


102 


063 


133 


140, 


165 


135 


237 


103 


063 


005, 


140 


176 


011 


173 


102 


063, 


133 


134 


173 


103 


063 


133, 


135 


096 


056 


165 


134 


237, 


117 


063 


133 


140 


165 


135, 


237 


118 


063 


005 


140 


176, 


001 


096 


173 


117 


063 


133, 


134 


173 


118 


063 


133 


135, 


096 


169 


008 


141 


031 


208, 


173 


031 


208 


201 


003 


208, 


030 


173 


107 


068 


201 


040, 


240 


020 


238 


107 


068 


238, 


107 


068 


206 


108 


068 


032, 


139 


036 


032 


207 


039 


169, 


125 


032 


127 


047 


076 


010, 


038 


230 


,134 


208 


002 


230, 


135 


076 


207 


039 


169 


008, 


141 


031 


208 


173 


031 


,208, 


201 


003 


,208 


030 


173 


,107, 


068 


r 201 


,002 


,240 


,020 


,206, 


107 


068 


206 


107 


068 


238, 


108 


068 


032 


139 


036 


032, 


207 


039 


169 


125 


032 


127, 


047 


076 


010 


038 


165 


,134, 


208 


,002 


,198 


,135 


198 


,134, 


076 


207 


,039 


165 


134 


,133, 


138 


,165 


,135 


,133 


,139 


,198, 


139 


,160 


,255 


,177 


,138 


,201, 


000 


,240 


,004 


,201 


,094 


,208, 


003 


,136 


,208 


,243 


,177 


,138, 


201 


,000 


,240 


008 


201 


,094, 


240 


004 


,136 


,208 


,243 


,096, 


056 


152 


101 


138 


133 


134, 


165 


139 


105 


000 


133 


135, 


076 


207 


039 


160 


000 


177, 



176 
085 
098 
157 
077 
109 
112 
238 
010 
020 
045 
126 
216 
166 
119 
024 
243 
067 
157 
093 
085 
191 
114 
017 
194 
251 
037 
233 
016 
073 
248 
046 
210 
146 
167 
230 
113 
147 
180 
079 
220 
124 
036 
231 
139 
240 
173 
222 
191 
179 
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10534 
10540 
10546 
10552 
10558 
10564 
10570 
10576 
10582 
10588 
10594 
10600 
10606 
10612 
10618 
10624 
10630 
10636 
10642 
10648 
10654 
10660 
10666 
10672 
10678 
10684 
10690 
10696 
10702 
10708 
10714 
10720 
10726 
10732 
10738 
10744 
10750 
10756 
10762 
10768 
10774 
10780 
10786 
10792 
10798 
10804 
10810 
10816 
10822 
10828 



:134, 201,000 


240 


008 


201, 


: 094, 240,004 


200 


208 


243, 


:096,200,208 


011 


230 


135, 


:165,135,205 


118 


06 3 


144, 


: 002, 208,025 


177 


134 


201, 


:000,240,236 


201 


094 


240, 


••232,024, 152 


101 


134 


133, 


:134,165,135 


105 


000 


133, 


:135,076,207 


039 


173 


117, 


: 063, 133, 134 


173 


118 


063, 


:133, 135,076 


207 


039 


169, 


:000,141,111 


063 


173 


118, 


: 063, 056, 233 


004 


205 


103, 


:063, 176,003 


173 


103 


063, 


:141,112,063 


032 


,139 


036, 


:076,090,041 


238 


,138 


041, 


:238, 138,041 


096 


008 


238, 


:154,041,238 


154 


041 


173, 


:154,041,041 


015 


141 


154, 


:041,096,002 


165 


134 


133, 


:138,165,135 


133 


139 


198, 


:139,160,25s, 


177 


138 


201, 


:014,240,012 


201 


001 


240, 


:008,201,031 


240 


004 


201, 


: 094, 208,004 


136 


208 


235, 


:096, 177,138 


,201 


,014 


240, 


: 027, 201,001 


240 


,023 


201, 


:031,240,019 


,201 


,094 


,240, 


:015,136,208 


,235 


,198 


,139, 


-•165,139,205 


,102 


,063 


,176, 


:226,076,244 


,041 


,132 


140, 


:198,140,200 


240 


,010 


177, 


:138,201,000 


240 


247 


136, 


:076,020,041 


164 


140 


076, 


:189,041,173, 


102 


063 


133, 


:134,173,103 


063 


133 


135, 


: 076, 207,039 


160 


000 


177, 


:134,201,014 


240 


029 


201, 


:001,240,025 


201 


031 


240, 


:021,201,094 


240 


017 


200, 


: 208, 235, 230 


135 


,165 


135, 


:205,118,063 


240 


,226 


144, 


: 224, 076,090 


,041 


,200 


208, 


:014,230,135 


,165 


,135 


205, 


:118,063,144 


005 


,240 


003, 


:076, 090,041 


177 


134 


201, 


:000,240,233 


201 


014 


240, 


:229,201,001 


240 


225 


201, 


:031,240,221 


201 


094 


240, 


:217,076,075 


041 


173 


106, 



,054 
,009 
,162 
,118 
,041 
,055 
,082 
,240 
,065 
,008 
,089 
,198 
,006 
,185 
,133 
,240 
,125 
,173 
,180 
,211 
,042 
,210 
,110 
,093 
,043 
,030 
,119 
,001 
,113 
,038 
,053 
,165 
,168 
,241 
,175 
,221 
,145 
,055 
,236 
,021 
,106 
,000 
,105 
,156 
,107 
,003 
,218 
,137 
,073 
,252 
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10834: 

10840: 

10846: 

10852: 

10858: 

10864 

10870: 

10876: 

10882: 

10888: 

10894: 

10900: 

10906: 

10912: 

10918: 

10924: 

10930: 

10936: 

10942: 

10948; 

10954: 

10960: 

10966: 

10972: 

10978: 

10984: 

10990: 

10996: 

11002: 

11008: 

11014: 

11020: 

11026: 

11032: 

11038: 

11044: 

11050: 

11056: 

11062: 

11068: 

11074: 

11080: 

11086: 

11092: 

11098: 

11104: 

11110: 

11116: 

11122: 

11128: 



063, 


141, 


209, 


063, 


173, 


107, 


063 


141, 


210 


063 


032 


026, 


038 


169 


172 


160 


061 


032, 


089 


037 


169 


001 


141 


113, 


063 


r 096 


056 


165 


134 


237, 


102 


,063 


133 


140 


165 


135, 


237 


,103 


063 


005 


140 


208, 


003 


,104 


104 


096 


165 


134, 


133 


128 


165 


135 


133 


129, 


096 


056 


165 


134 


133 


130, 


073 


255 


101 


128 


141 


213, 


063 


165 


135 


133 


131 


073, 


255 


101 


129 


141 


214 


063, 


165 


128 


141 


215 


063 


165, 


129 


141, 


216 


063 


165 


130, 


141 


217, 


063 


133, 


128 


165, 


131, 


141, 


218, 


063, 


133 


129, 


056 


173, 


214 


063 


109 


210, 


063 


205, 


109 


063 


144 


016, 


032 


026 


038 


169 


187 


160, 


061 


032 


089 


037 


169 


001, 


141 


113 


063 


096 


173 


209, 


063 


,133 


130 


173 


210 


063, 


133 


131 


173 


213 


063 


133, 


132 


,024 


109 


209 


063 


141, 


209 


063 


173 


214 


063 


133, 


133 


109 


210 


063 


141 


210, 


063 


032 


016 


036 


173 


215, 


063 


133 


128 


173 


216 


063, 


133 


129 


173 


217 


063 


133, 


130 


173 


218 


063 


133 


131, 


056 


173 


117 


063 


229 


130, 


133 


132 


173 


118 


063 


229, 


131 


133 


133 


,032 


016 


,036, 


056 


173 


117 


,063 


237 


,213, 


063 


141 


117 


,063 


173 


,118, 


063 


237 


214 


,063 


rl41 


,118, 


063 


,096 


032 


108 


042 


032, 


184 


,040 


,032 


,137 


,042 


,056, 


173 


209 


063 


233 


001 


141, 


209 


063 


173 


210 


063 


233, 


000 


141 


210 


063 


096 


032, 


133 


040 


032 


108 


042 


032, 


184 


040 


032 


137 


042 


076, 


059, 


043 


032 


080 


042 


169, 


050 


133 


145 


032 


026 


038, 


169 


199 


160 


061 


032 


089, 


037 


032 


111 


037 


072 


032, 


010 


038 


104 


041 


095 


009, 


064 


201 


087 


208 


009 


032, 



,070 
,111 
,214 
,138 
,089 
,082 
,106 
,218 
,185 
,082 
,029 
,080 
,033 
,013 
,242 
,251 
,225 
,241 
,022 
,040 
,079 
,235 
,218 
,042 
,136 
,063 
,080 
,011 
,002 
,080 
,086 
,012 
,098 
,249 
,121 
,199 
,110 
,165 
,033 
,112 
,249 
,102 
,209 
,083 
,003 
,008 
,044 
,173 
,155 
,209 
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11134i 
11140; 
11146: 
11152: 
11158: 
11164: 
11170: 
11176: 
11182: 
11188: 
11194: 
11200: 
11206: 
11212: 
11218: 
11224: 
11230: 
11236: 
11242: 
11248: 
11254: 
11260: 
11266: 
11272: 
11278: 
11284: 
11290: 
11296: 
11302: 
11308: 
11314: 
11320: 
11326: 
11332: 
11338: 
11344: 
11350: 
11356: 
11362: 
11368: 
11374: 
11380: 
11386: 
11392: 
11398: 
11404: 
11410: 
11416: 
11422: 
11428: 



108,042 


032,237 


,040 


,076, 


137,042 


201,083 


208 


,009, 


032,108 


,042,032 


155 


,041, 


076,137 


042,201 


080 


,208, 


009,032 


108,042 


032 


,082, 


045,076 


137,042 


096 


056, 


165,134 


237,111 


063 


133, 


140,165 


135,237 


112 


063, 


005,140 


240,026 


173 


,111, 


063,133 


134,173 


112 


063, 


133,135 


169,000 


133 


020, 


141,031 


208,165 


020 


201, 


030,208 


250,076 


207 


039, 


173,102 


063,133 


134 


173, 


103,063 


133,135 


076 


188, 


043,165 


134,133 


138 


133, 


130,165 


135,133 


139 


133, 


131,160 


000,177 


138 


,201, 


000, 208 


,030,200 


208 


,247, 


165,139 


,205,118 


063 


,144, 


015,173 


,117,063 


133 


,138, 


173,118 


,063,133 


139 


,160, 


000,076 


,011,044 


230 


,139, 


076,231 


,043,024 


152 


,101, 


138,133 


128,169 


000 


,101, 


139,133 


,129,056 


173 


,117, 


063,229 


,130,133 


132 


,173, 


118,063 


,229,131 


,133 


,133, 


056,165 


,128,229 


,130 


,141, 


213,063 


165,129 


229 


,131, 


141,214 


063,032 


016 


036, 


056,173 


117,063 


237 


213, 


063,141 


117,063 


173 


118, 


063,237 


214,063 


141 


118, 


063,096 


169,255 


141 


238, 


063,076 


102,044 


169 


005, 


141,238 


063,032 


102 


044, 


177,134 


201,000 


208 


001, 


200,076 


075,041 


169 


000, 


141,239 


063,032 


146 


044, 


169,000 


174,238 


063 


160, 


000,145 


134,200 


202 


208, 


250,096 


169,001 


141 


238, 


063,169 


000,141 


239 


063, 


032,146 


044,169 


000 


160, 


000,145 


134,076 


207 


039, 


024,173 


,117,063 


109 


238, 


063,173 


,118,063 


109 


239, 


063,205 


,105,063 


144 


005, 


104,104 


,076,225 


044 


,024, 



,149 
,044 
,036 
,120 
,199 
,096 
,237 
,252 
,101 
,090 
,008 
,190 
,240 
,214 
,140 
,194 
,033 
,011 
,103 
,050 
,117 
,014 
,246 
,123 
,171 
,255 
,118 
,071 
,119 
,206 
,040 
,147 
,225 
,136 
,012 
,027 
,194 
,045 
,147 
,001 
,146 
,237 
,249 
,035 
,173 
,229 
,102 
,149 
,231 
,229 
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11434: 
11440 

11446: 
11452: 

11458 

11464 

11470: 

11476: 

11482 

11488 

11494 

11500 

11506 

11512 

11518: 

11524 

11530; 

11536 

11542: 

11548: 

11554: 

11560 

11566 

11572 

11578 

11584 

11590: 

11596: 

11602: 

11608: 

11614: 

11620 

11626: 

11632: 

11638: 

11644 

11650: 

11656 

11662: 

11668: 

11674: 

11680: 

11686: 

11692: 

11698; 

11704; 

11710; 

11716; 

11722: 

11728: 



165 


134 


133 


,128 


109 


,238, 


063 


133 


130 


,165 


135 


,133, 


129 


109 


239 


,063 


133 


,131, 


056 


173 


117 


063 


229 


128, 


133 


132 


,173 


,118 


063 


229, 


129 


133 


133 


032 


077 


036, 


024, 


173 


117 


063 


109 


238, 


063 


141 


117 


063 


173 


118, 


063 


109 


239 


063 


141 


118, 


063 


096 


173 


114 


063 


073, 


116 


141 


114 


063 


096 


169, 


214 


160 


061 


032 


089 


,037, 


032 


204 


047 


041 


127 


240, 


249 


201 


125 


240 


245 


041, 


223 


201 


,089 


,096 


169 


008, 


141 


031 


208 


173 


031 


208, 


201 


003 


240 


,001 


096 


169, 


050 


133 


145 


032 


026 


038, 


169 


237 


160 


061 


032 


089, 


037 


032 


235 


044 


240 


003, 


076 


010 


038 


162 


250 


154, 


032 


031 


037 


032 


234 


037, 


076 


072 


038 


,160 


000 


177, 


134 


201 


094 


,240 


,017 


200, 


208 


247 


230 


135 


165 


,135, 


205 


118 


,063 


,144 


,238 


,240, 


236 


076 


090 


,041 


200 


208, 


002 


230 


135 


076 


075 


041, 


165 


134 


133 


,138 


165 


135, 


133 


139 


198 


,139 


160 


,255, 


177 


138 


201 


094 


240 


,017, 


136 


192 


255 


208 


245 


198, 


139 


165 


139 


205 


103 


063, 


176, 


236 


076 


244 


041 


056, 


152 


101 


138 


133 


138 


169, 


000 


101 


139 


133 


139 


056, 


165 


138 


229 


134 


133 


140, 


165 


139 


229 


135 


005 


140, 


208 


018 


132 


140 


024 


165, 


138 


229 


140 


133 


138 


165, 


139, 


233 


000 


133 


139 


076, 


100, 


045 


165 


138 


133 


134, 


165, 


139 

Vl69 


133 
064 


135 


076 


207, 


039, 


141 


014 


212, 


169, 


010 


141 


000 


002 


169, 


046, 


141 


001 


002 


173 


048, 


002, 


133, 


140 


173 


049 


002, 


133, 


141, 


160 


000 


18 5 


238, 


045, 


145, 


140, 


200, 


192 


028, 


208, 


246, 


160, 


004, 


165 


088, 



,053 
,167 
,218 
,186 
,018 
,228 
,162 
,119 
,183 
,038 
,161 
,061 
,165 
,069 
,016 
,028 
,208 
,184 
,002 
,107 
,212 
,187 
,057 
,170 
,154 
,048 
,153 
,123 
,184 
,088 
,193 
,054 
,152 
,173 
,181 
,180 
,045 
,181 
,061 
,067 
,106 
,107 
,253 
,043 
,157 
,083 
.177 
,029 
,184 
,055 
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11734: 
11740: 
11746: 
11752: 
11758: 

11764: 

11770: 

11776: 

11782: 

11788: 

11794: 

11800: 

11806: 

11812: 

11818: 

11824: 

11830; 

11836 

11842: 

11848 

11854 

11860 

11866 

11872 

11878 

11884 

11890: 

11896: 

11902: 

11908: 

11914: 

11920: 

11926: 

11932: 

11938: 

11944: 

11950: 

11956: 

11962: 

11968: 

11974: 

11980: 

11986: 

11992: 

11998: 

12004: 

12010: 

12016: 

12022: 

12028: 



145, 


140, 


140, 


160, 


140, 


165, 


169 


192, 


112 


112, 


003 


003, 


003 


003, 


003 


003, 


016 


065, 


138 


041, 


024 


208, 


154 


041, 


145 


141, 


141 


197, 


244 


002, 


002 


104, 


031 


208, 


003 


240, 


032 


026, 


061 


032, 


177 


,134, 


032 


,139, 


134 


,073, 


050 


,133, 


041 


,095, 


208 


,009, 


035 


041, 


083 


208, 


032 


001, 


201 


080, 


046 


032, 


046 


032, 


038 


165, 


203 


063, 


141 


204, 


134 


133, 


141 


213, 


129 


237, 


063 


032, 


063 


133, 


133, 


135, 


076, 


046, 


141, 


119, 


120, 


063, 


032, 


032, 


032, 


127, 


032, 


111, 


044, 


182, 


027, 


208, 


182, 


067, 



,165,089 
,026,165 
,141,200 
,141,014 
,112,195 
,003,003 
,003,003 
,003,003 
,000,000 
,141,010 
,141,200 
,141,023 
,198,002 
,002,169 
,169,000 
,064 r ,T69 
,173,031 
,003,032 
,038,169 
,089,037 
,073,128 
,036,160 
,128,145 
,145,032 
,009,064 
,032,151 
,076,166 
,009,032 
,042,076 
,208,009 
,049,045 
,207,039 
,134,133 
,165,135 
,063,096 
,128,237 
,063,165 
,204,063 
, 160,042 
,134,173 
,032,139 
,169,039 
,063,160 
, 140,240 
,127,047 
,047,140 
,037,172 
,067,048 
,011,169 
, 141,162 



,200, 
,140, 
,145, 
,212, 
,000, 
,003, 
,003, 
,003, 
i,072, 
,212, 
,002, 
,208, 
,169, 
,032, 
,141, 
,008, 
,208, 
,080, 
,252, 
,160, 
,145, 
,000, 
,134, 

,111, 
,201, 
,046, 
,046, 
,151, 
,166, 
,032, 
,076, 
,076, 
,130, 
,133, 
,056, 
,203, 
,135, 
,141, 
,173, 
,204, 
,036, 
,229, 
.000, 
002, 
,169, 
,120, 
,120, 
,057, 
,128, 
,002, 



145,074 
145,228 
140,133 
096|,03 2 
000,001 
003,006 
003,012 
003,018 
173,076 
141,183 
173,254 
165,244 
010,183 
141,206 
182,012 
141,024 
201,138 
042,204 
160,231 
000,195 
134,101 
177,116 
169,105 
037,092 
087,087 
032,074 
201,167 
046,137 
046,233 
151,045 
166,040 
010,042 
141,123 
131,218 
165,119 
063,042 
133,000 
214,144 
203,091 
063,194 
076,237 
085,080 
140,065 
169,182 
126,243 
063,245 
063,001 
201,071 
141,162 
076,114 
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120 34 

12040 

12046 

12052 

12058 

12064 

12070 

12076 

12082 

12088 

12094 

12100 

12106 

12112 

12118: 

12124: 

12130: 

12136: 

12142: 

12148: 

12154: 

12160: 

12166: 

12172: 

12178: 

12184: 

12190: 

12196: 

12202: 

12208: 

12214: 

12220: 

12226: 

12232: 

12238: 

12244: 

12250: 

12256: 

12262: 

12268: 

12274: 

12280: 

12286: 

12292: 

12298: 

12304: 

12310: 

12316: 

12322: 

12328: 



:231 
:201 
:004 
:126 
:046 
:032 
:192 
:165 
:142 
:224 
:153 
:169 
:076 
:240 
:063 
:012 
:228 
:068 
:003 
:142 
:066 
:203 
:003 
:002 
:032 
:096 
:162 
:068 
:170 
:000 
:044 
:127 
:098 
:208 
:002 
:000 
:255 
:169 
:017 
:068 
:063 
:109 
:141 
:173 
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144 
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123 34:210,162, 175,142,001,210,178 
12340:160,128,136,208,25 3,202,115 
12346:224,159,2 08,243,104,096,068 
12 35 2:108,106,0 59,128,128,107,188 
123 58:043,042, 111,128,112,117,111 
12364:155,10 5,045,061,118,128,176 
12370 : 099 , 1 28 , 1 28 , 098 , 1 20 , 1 22 , 009 
12376:052,128,051,054,027,053,197 
12382:050,049,044,0 32,046,110,169 
12 388:128,109,047,128,114,128,242 
12 394:101,121,127,116,119,113,035 
12400:057,128,048,055,126,056,070 
12406:060,062,102,104,100,128,162 
12412:130,103,115,097,076,074,207 
12418:058,128,128,075,092,094,19 3 
12424:079,128,080,08 5,155,073,224 
12430:095,124,086,128,067,128,002 
12436:128,066,088,090,036,128,17 2 
12442:035,038,027,037,034,033,102 
12448:091,032,093,078,128,077,147 
12454:063,128,082,128,069,089,213 
12460:159,084,087,081,040,128,239 
12466:041,039,156,064,125,157,248 
12472:070,07 2,068,128,131,071,212 
12478:083,065,012,010,123,128,099 
12484:128,011,030,031,015,128,027 
12490:016,021,155,009,028,029,204 
12496:022,128,003,128,128,002,107 
12502:024,026,128,128,133,128,013 
12508:027,128,253,128,000,032,020 
12514:096,014,128,013,128,128,221 
125 20:018,128,005,025,158,020,074 
12526:023,017,128,128,128,128,022 
12532:254,128,125,255,006,008,25 2 
12538:004,128,132,007,019,001,029 
12544:032,13 2,049,162,112,169,144 
12550:122,157,068,003,169,062,07 5 
125 56:157,069,003,169,005,15 7,060 
12562:072,003,169,000,157,073,2 36 
12568:003,169,006,15 7,074,003,180 
12574:169,003,157,066,003,03 2,204 
12580:086,2 28,048,09 2,169,000,147 
12 586:141,103,068, 174,103,068,187 
12592:165,100,15 7,229,067,165,163 
12598:101,157,2 30,067,238, 103,182 
12604:068,2 38,103,068,032,169,226 
12610:049,048,063,201,043,176,134 
12616:07 5,03 2,127,047,032,169,042 
12622:049,048,051, 169,000,141,024 
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12640 

12646 

12652 

12658 
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12802: 
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12832 
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12904; 
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12928: 

12934; 

12940: 

12946: 

12952; 

12958: 

12964: 

12970: 

12976: 

12982: 

12988; 

12994; 

13000: 

13006: 

13012 

13018: 

13024; 

13030: 

13036; 
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13048 

13054: 

13060: 

13066: 

13072: 
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13138: 
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13162: 

13168: 
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13192: 

13198: 

13204: 

13210: 

13216: 



097 
228 
103 
097 
062 
003 
136 
201 
067 
2 36 
208 
169 
162 
227 
000 
157 
069 
148 
050 
032 
032 
234 
036 
051 
089 
002 
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240 
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063 
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227 
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037 
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,246 
,001 
,187 
,254 
,057 
,184 
,099 
,223 
,064 
,083 
,011 
,102 
,105 
,133 
,033 
,071 
,206 
,094 
,102 
,144 
,246 
,169 
,090 
,052 
,194 
,221 
,205 
,197 
,207 
,237 
,186 
,044 
,099 
,148 
,246 
,191 
,179 
,117 
,140 
,030 
,073 
,067 
,188 
,201 
,226 
,121 
,086 
,243 
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13222: 
13228: 
13234: 
13240: 
13246: 
13252: 
13258: 
13264: 
13270: 
13276: 
13282: 
13288: 
13294: 
13300: 
13306: 
13312: 
13318: 
13324: 
13330: 
13336: 
13342: 
13348; 
13354: 
13360: 
13366: 
13372: 
13378: 
13384: 
13390: 
13396: 
13402: 
13408: 
13414: 
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13504: 
13510: 
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063 


,173 


,118 


063 


,101, 


143 


141 


,118 


063 


032 


,025, 


052 


173 


rH7 


063 


133 


,138, 


173 


118 


,063 


133 


139 


,169, 


000 


168 


,145 


138 


200 


,208, 


251 


096 


,032 


224 


052 


,016, 


003 


076 


,174 


052 


169 


,125, 


032 


127 


,047 


169 


074 


,160, 


062 


032 


,089 


037 


076 


,199, 



,117 
,160 
,044 
,116 
,106 
,231 
,116 
,203 
,064 
,116 
,202 
,061 
,234 
,108 
,101 
,188 
,185 
,210 
,068 
,110 
,225 
,013 
,119 
,146 
,215 
,030 
,165 
,065 
,126 
,210 
,207 
,232 
,023 
,184 
,218 
,242 
,137 
,154 
,224 
,188 
,163 
,067 
,216 
,120 
,245 
,059 
,133 
,067 
,083 
,231 
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13822: 
13828: 
13834: 

13840: 

13846s 
13852: 
13858: 
13864: 
13870: 
13876: 
13882: 
13888: 
13894: 
13900: 
13906: 
13912: 
13918: 
13924: 
13930: 
13936: 
13942: 
13948: 
13954: 
13960: 
13966: 
13972: 
13978: 
13984: 
13990: 
13996: 
14002: 
14008: 
14014: 
14020: 
14026: 
14032: 
14038: 
14044: 
14050: 
14056: 
14062: 
14068: 
14074: 
14080: 
14086: 
14092: 
14098: 
14104: 
14110: 
14116: 



052 


169 


064 


,141 


,014 


212, 


173 


138 


041 


141 


198 


002, 


141 


,200 


002 


,173 


,154 


041, 


141 


,197 


002 


096 


162 


000, 


142, 


205, 


063 


142 


206, 


063, 


142 


207 


063 


142 


208 


063, 


056 


177, 


138 


233 


016 


144, 


042 


201, 


010 


176 


038 


014, 


205 


063 


046 


206 


063 


014, 


205 


063 


046 


206 


063 


014, 


205, 


063, 


046 


206 


063, 


014, 


205, 


063, 


046, 


206 


063, 


013, 


205, 


063, 


141, 


205 


063, 


200, 


208, 


212, 


230 


139 


076, 


034, 


054, 


248 


173 


205 


063 


013, 


206 


063 


240 


028 


056 


173, 


205, 


063 


233 


001 


141, 


205, 


063, 


173 


206 


063 


233 


000, 


141 


206 


063 


238 


207, 


063, 


208 


003 


238 


208 


063, 


076, 


084 


054 


173, 


207 


063, 


216, 


096 


056 


173 


209 


063 


237, 


106 


063 


141, 


211 


063, 


173, 


210, 


063 


237, 


107 


063, 


141, 


212 


063 


013 


211 


063, 


208, 


016 


032 


026 


038 


169, 


140, 


160 


062 


032 


089 


037, 


169, 


001 


141 


113 


063 


096 


024, 


165, 


134, 


133 


128 


109, 


211, 


063 


133 


130 


165 


135 


133, 


129 


109 


212 


063 


133 


131, 


056 


173 


117 


063 


229 


128, 


133 


132 


173 


118 


063 


229, 


129 


133 


133 


024 


,101 


131, 


205 


105 


063 


144 


,016 


032, 


026 


038 


169 


128 


160 


062, 


032 


089 


037 


169 


001 


141, 


113 


063 


096 


032 


077 


036, 


024 


173 


211 


063 


133 


132, 


109 


117 


063 


141 


117 


063, 


173 


212 


063 


133 


133, 


109, 


118 


063 


141 


118 


063, 


165, 


134 


133 


130 


165 


135 


133, 


131 


173 


106 


063 


133, 


128, 


173 


107 


063 


133 


129, 


032, 


016 


036 


076 


207 


039 


160, 


000 


177 


134 


170 


200 


177, 


134 


136 


145 


134 


200 


138, 


145 


134 


096 


160 


000 


177, 


134 


041 


,063 


201 


033 


144, 



,138 
,185 
,209 
,102 
,075 
,085 
,030 
,009 
,131 
,137 
,143 
,148 
,179 
,207 
,070 
,086 
,174 
,070 
,000 
,140 
,147 
,190 
,119 
,189 
,144 
,057 
,191 
,086 
,022 
,163 
,187 
,182 
,014 
,079 
,255 
,023 
,171 
,125 
,194 
,074 
,037 
,144 
,056 
,222 
,131 
,034 
,108 
,143 
,230 
,140 



57 



SpeedScript 



14122: 

14128: 

14134: 

14140: 

14146: 

14152: 

14158: 

14164: 

14170: 

14176: 

14182: 

14188: 

14194: 

14200 

14206 

14212 

14218: 

14224: 

14230 

14236 

14242: 

14248 

14254; 

14260: 

14266; 

14272 

14278: 

14284 

14290: 

14296 

14302 

14308 

14314: 

14320: 

14326; 

14332: 

14338: 

14344: 

14350: 

14356: 

14362: 

14368: 

14374: 

14380: 

14386: 

14392 

14398: 

14404: 

14410: 
14416; 



010, 201 


059,176,006 


177, 


134,073 


064,145,134 


076, 


133,040 


072,041, 128 


133, 


140,104 


041,127,201 


096, 


176,011, 


201,064,144 


005, 


233,064, 


076,079,055, 


105, 


032,005, 


140,096,005 


075, 


066,005 


058,001,001 


001, 


000,001 


000,080,027 


014, 


015,018 


141,244,063 


138, 


072,152 


072,056,173 


228, 


063,237 


230,063, 173 


229, 


063,237 


231,063,144 


049, 


169,001 


141,254,002 


162, 


112,169 


000,157,072 


003, 


157,073 


003,169,011 


157, 


066,003 


173,244,063 


032, 


086,228 


008,169,000 


141, 


254,002 


040,016,009 


,032, 


174,052 


162,250, 154 


,076, 


072,038 


173,255,002 


208, 


251, 104 


168, 104, 170 


173, 


244,063 


096,032,026 


038, 


169,183 


160,062,076 


089, 


037,076 


215,056,032 


,026, 


038, 169 


,158, 160,062 


,032, 


089,037 


,032,255,053 


,169, 


008,032 


235,052,016 


003, 


076,215 


,056,032,255 


,053, 


032, 177 


055, 162,000 


,142, 


220,063 


,142,219,063 


-142, 


240,063 


142,241,063 


,142, 


181,067 


189,082,055 


157, 


221,063 


232,224,012 


208, 


245, 169 


255,141,235 


063, 


141,233 


063,162,004 


189, 


093,055 


157,067,064 


202, 


208,247 


173,102,063 


133, 


138,173 


103,063,133 


139, 


160,000 


140,234,063 


,204, 


233,063 


240,006,173 


221, 


063,141 


234,063,177 


138, 


016,003 


076,166,057 


201, 


094,240 


041,153,179 


064, 


200,238 


234,063,173 


234, 


063,205 


222,063,144 


,230, 


140,116 


,063,177,138 


,201, 


000,240 


017,206,234 


,063, 


136,208 


244,172,116 


,063, 


200,177 


138,201,000 


,240, 



159 
162 
089 
001 
155 
172 
175 
216 
212 
203 
087 
079 
133 
081 
127 
190 
207 
008 
247 
000 
142 
114 
161 
151 
116 
043 
065 
038 
129 
016 
047 
095 
197 
176 
074 
020 
128 
166 
251 
053 
194 
080 
045 
047 
168 
215 
129 
060 
245 
012 
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14422; 

14428: 

14434: 

14440: 

14446: 

14452; 

14458; 

14464: 

14470; 

14476; 

14482: 

14488: 

14494: 

14500: 

14506: 

14512; 

14518: 

14524: 

14530: 

14536: 

14542: 

14548: 

14554: 

14560: 

14566: 

14572: 

14578: 

14584: 

14590: 

14596: 

14602: 

14608: 

14614: 

14620: 

14626 

14632 

14638: 

14644: 

14650: 

14656: 

14662: 

14668: 

14674: 

14680: 

14686: 

14692: 

14698: 

14704: 

14710: 

14716: 



001 


r 136 


140 


116 


,063 


152, 


056 


101 


138 


133 


,138 


165, 


139 


,105 


,000 


133 


,139 


,160, 


000 


,173 


235 


063 


,201 


255, 


208 


,003 


,032 


,077 


,057 


,173, 


233 


,063 


,240 


003 


,032 


,117, 


057 


,056 


,046 


233 


,063 


173, 


116 


,063 


141 


115 


,063 


169, 


179 


,133 


142 


169 


,064 


133, 


143 


032 


220 


060 


032 


134, 


057 


173 


235 


063 


205 


225, 


063 


144 


003 


032 


238 


056, 


056 


165 


138 


237 


117 


063, 


133 


140 


165 


139 


237 


118, 


063 


005 


140 


240 


060 


144, 


058 


173 


220 


063 


240, 


011, 


169 


000 


141, 


219 


063, 


141, 


224, 


063 


032 


238 


056, 


173, 


163, 


063 


201, 


069 


208, 


015, 


169 


155 


032, 


127 


047 


169, 


108 


160 


062 


032 


089 


037, 


032 


111 


037, 


032 


132, 


049, 


162 


250 


154 


032 


173, 


045, 


169 


125 


032 


127 


047 


032, 


010 


038 


076 


072 


038 


076, 


020 


056 


056 


173 


223 


063, 


237 


235 


063 


168 


136 


136, 


240 


008 


048 


006 


032 


152, 


057 


136 


208 


250 


173 


220, 


063 


240 


017 


141 


115 


063, 


169 


180 


133 


142 


169 


066, 


133 


143 


032 


117 


057 


032, 


220 


060 


032 


152 


057 


032, 


152 


057 


032 


152 


057 


238, 


228 


,063 


,208 


003 


,238 


229, 


063 


,173 


,227 


063 


208 


031, 


056 


173 


228 


063 


237, 


230, 


063 


173 


229 


063 


237 


231, 


063 


144 


016 


032 


026 


038, 


169 


197 


160 


062 


032 


089, 


037 


032 


111 


037 


032 


177, 


055 


,173 


219 


063 


240 


017, 


141 


115 


063 


169 


179 


133, 


142 


169 


065 


133 


143 


032, 


117 


057 


032 


220 


060 


172, 


224 


063 


140 


235 


063 


136, 


240 


008 


048 


006 


032 


152, 


057 


136 


208 


250 


096 


169, 


032 


172 


221 


063 


140 


234, 


063 


240 


006 


032 


098 


055, 



,182 
,055 
,006 
,007 
,148 
,036 
,238 
,027 
,186 
,249 
,080 
,176 
,166 
,072 
,054 
,173 
,147 
,206 
,145 
,131 
,182 
,093 
,010 
,244 
,028 
,059 
,193 
,222 
,018 
,131 
,101 
,018 
,063 
,204 
,235 
,037 
,009 
,024 
,121 
,005 
,240 
,075 
,114 
,004 
,240 
,193 
,080 
,004 
,212 
,106 
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14722: 

14728: 

14734: 

14740: 

14746: 

14752; 

14758: 

14764: 

14770: 

14776: 

14782: 

14788: 

14794: 

14800; 

14806: 

14812; 

14818: 

14824 

14830; 

14836: 

14842: 

14848 

14854: 

14860: 

14866: 

14872: 

14878: 

14884: 

14890: 

14896: 

14902: 

14908: 

14914: 

14920: 

14926: 

14932: 

14938: 

14944: 

14950: 

14956: 

14962: 

14968: 

14974: 

14980: 

14986: 

14992: 

14998: 

15004: 

15010: 

15016: 



136 


208 


250 


096 


172 


226, 


063 


024 


152 


109 


235 


063, 


141 


235 


063 


032 


152 


057, 


136 


208 


250 


096 


169 


,155, 


032 


098 


055 


173 


181 


067, 


240 


003 


032 


098 


055 


,096, 


141 


237 


063 


041 


127 


032, 


056 


055 


174 


241 


057 


221, 


241 


057 


240 


009 


202 


208, 


248 


206 


234 


063 


076 


246, 


058 


202, 


138, 


010 


170 


140, 


236, 


063, 


169, 


057, 


072 


169, 


212 


072, 


189 


004 


058 


072, 


189 


003 


058 


072 


096 


056, 


173 


236 


063 


101 


138 


133, 


138 


165 


139 


105 


000 


133, 


139 


076 


020 


056 


177 


138, 


201 


094 


240 


001 


136 


140, 


236 


063 


096 


017 


119 


108, 


114 


116 


098 


115 


110 


104, 


102 


064 


112 


063 


120 


109, 


105 


103 


106 


097 


058 


115, 


058 


125 


058 


135 


058 


145, 


058 


155 


058 


165 


058 


180, 


058 


214 


058 


071 


058 


087, 


058 


055 


058 


045 


058 


036, 


058, 


239, 


058 


024 


059 


106, 


058 


200 


169 


000 


141 


233, 


063 


076 


230 


057 


200 


032, 


020 


054 


141 


232 


063 


076, 


2 30 


057 


200 


032 


020 


054, 


141 


230 


063 


173 


208 


063, 


141 


231 


063 


076 


230 


057, 


200 


032, 


020 


054 


141 


228, 


063 


173 


208 


063 


141 


229, 


063 


076 


230 


057 


200 


032, 


020 


,054 


-141 


,223 


,063 


076, 


230 


057 


169 


000 


141 


227, 


063 


200 


076 


230 


057 


169, 


010, 


141, 


181 


067 


200 


076, 


230 


057, 


200 


032 


020 


054, 


141, 


221, 


063, 


076 


230 


057, 


200 


032 


020 


054 


141 


222, 


063 


076 


230 


057 


200 


032, 


020 


054 


141 


224 


063 


076, 


230 


057 


200 


032 


020 


054, 


141 


225 


,063 


076 


230 


,057, 


200 


032 


020 


054 


141 


226, 


063 


076 


,230 


057 


172 


236, 


063 


200 


,152 


072 


032 


238, 



,194 
,014 
,054 
,138 
,248 
,172 
,039 
,208 
,111 
,233 
,140 
,194 
,041 
,170 
,034 
,132 
,064 
,020 
,109 
,133 
,052 
,072 
,073 
,174 
,052 
,078 
,062 
,069 
,188 
,122 
,135 
,170 
,096 
,235 
,187 
,230 
,155 
,152 
,129 
,015 
,195 
,140 
,027 
,022 
,204 
,225 
,174 
,061 
,228 
,157 
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15022:056,104,168,140,236,063,173 
15028:096,032,207,058,136,140,081 
15034:219,063,160,001,177,138,176 
15040:153,178,065,200,204,219,187 
15046:063,144,245,240,243,200,053 
15052:076,2 30,05 7,200,17 7,138,058 
15058:201,094,208,249,096,032,066 
15064:207,058,136,140,220,06 3,016 
15070:160,001,177,138,153,179,006 
15076:066,200,204,2 20,06 3,144,101 
15082:245,240,243,076,230,057,045 
15088:03 2,207,058,076,230,057,132 
15094:200,177,138,201,029,240,207 
15100:007,136,17 3,237,063,076,176 
15106:047,056,200,032,020,054,155 
15112:07 2,173,237,063,041,127,209 
15118:170,104,157,051,064,032,080 
15124:230,057,076,213,057,160,045 
15130:001,162,000,177,138,201,193 
15136:094,240,012,032,056,055,009 
15142:157,163,063,200,2 32,224,053 
15148:014,208,238,142,120,063,061 
15154:169,000,157,163,063,162,252 
15160:096,142,18 5,06 7,169,004,207 
15166:141,186,067,032,016,05 3,045 
15172:016,003,076,155,055,169,030 
15178:000,133,142,133,143,032,145 
15184:031,03 7,03 2,126,053,016,119 
15190:003,076,155,055,104,104,071 
15196:162,112,141,18 5,06 7,076,067 
15 202:010,056,0 32,145,059,173,061 
15208:245,063,240,02 2,03 2,060,254 
15214:060,032,183,059,173,243,092 
15 2 20:063,201,25 5,240,009,03 2,148 
152 26:095,060,032,139,036,076,048 
15232:111,059,076,010,038,169,07 9 
152 38:008,141,031,208,173,031,214 
15244:208,201,003,208,038,032,06 2 
15250:026,038,169,229,160,062,062 
15 25 6:03 2,089,037,03 2,20 6,046,082 
15262:141,245,063,208,003,076,126 
15268:010,03 8,160,000,18 5,163,208 
15274:063,153,246,063,200,204,07 5 
15280:120,06 3,208,244,07 6,010,129 
15 286:038,165,134,133,138,165,187 
15292:135,13 3,139,169,25 5,141,136 
15 298:243,063, 160,001,162,000,055 
15 304:173,245,06 3,240,08 3,189,169 
15310:246,063,032,044,038,209,070 
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15316: 

15322: 

15328: 

15334: 

15340: 

15346: 

15352: 

15358: 

15364: 

15370: 

15376: 

15382: 

15388: 

15394: 

15400: 

15406: 

15412: 

15418: 

15424: 

15430: 

15436: 

15442: 

15448: 

15454: 

15460: 

15466: 

15472: 

15478: 

15484: 

15490: 

15496: 

15502: 

15508: 

15514: 

15520: 

15526: 

15532: 

15538: 

15544 

15550: 

15556; 

15562: 

15 568: 

15574: 

15580: 

15586: 

15592: 

15598: 

15604: 

15610: 



138,240 


005 


224 


000,208, 


235,202 


200 


208 


011,230, 


139,165 


139 


205 


118,063, 


240,002 


176 


054 


232,236, 


245,063 


208 


221 


024,152, 


101,138 


133 


140 


165,139, 


105,000 


133 


141 


173,117, 


063,197 


140 


173 


118,063, 


229,141 


144 


024 


056,165, 


140,237 


245 


063 


133,134, 


141,242 


063 


165 


141,233, 


000,133 


,135 


141 


243,063, 


032,207 


,039 


,096 


,032,026, 


038,169 


235 


160 


062,032, 


089,037 


,169 


001 


141,113, 


063,096 


,169 


008 


141,031, 


208,173 


031 


208 


201,003, 


208,035 


,032 


026 


038,169, 


245,160 


,062 


032 


089,037, 


032,206 


046 


141 


020,064, 


240,014 


160 


000 


185,163, 


063,153 


021 


064 


200,204, 


120,063 


208 


244 


076,010, 


038,056 


165 


134 


133,130, 


237,242 


063 


133 


140,165, 


135, 133 


131 


237 


243,063, 


005,140 


208 


101 


169,255, 


141,243 


063 


024 


173,245, 


063,101 


134 


133 


128,169, 


000,101 


135 


133 


129,056, 


173,117 


063 


229 


130,133, 


132,173 


118 


063 


229,131, 


133,133 


032 


016 


036,056, 


173,117 


063 


237 


245,063, 


141,117 


063 


173 


118,063, 


233,000 


141 


118 


063,173, 


020,064 


,240 


041 


141,238, 


063, 169 


,000 


,141 


239,063, 


032,146 


,044 


160 


000,185, 


021,064 


,032 


044 


038,145, 


134,200 


,204 


020 


064,208, 


242,024 


,165 


134 


109,020, 


064, 133 


,134 


,165 


135,105, 


000,133 


,135 


076 


207,039, 


160,000 


,204 


115 


063,240, 


029, 177 


, 142 


048 


026,032, 


056,055 


032 


098 


055,173, 


241,063 


,2 40 


010 


169,008, 


032,098 


055 


169 


095,032, 


098,055 


,200 


076 


222,060, 



,003 
,024 
,029 
,146 
,125 
,034 
,149 
,240 
,251 
,194 
,233 
,225 
,204 
,218 
,078 
,042 
,108 
,054 
,177 
,067 
,070 
,019 
,041 
,238 
,056 
,024 
,222 
,239 
,084 
,172 
,213 
,220 
,042 
,028 
,067 
,126 
,148 
,085 
,239 
,022 
,002 
,128 
,176 
,036 
,234 
,168 
,189 
,201 
,213 
,193 
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15616:096,140,2 36,06 3,041,127,191 
15622:141,2 37,063,032,056,055,07 8 
15628:201,099,208,027,0 56,17 3,008 
156 34:232,063,2 37,115,063,074,034 
15640:056,2 37,2 21,06 3,168,169,17 
15646:032,032,098,055,136,208,079 
15652:250,17 2,2 36,06 3,076,2 5 2,061 

156 58 : 060 , 201 , 101 , 208 , 017 , 056 , 17 3 
15664:173,222,063,237,115,063,153 
15670:056,2 37,2 21,063,168,169,200 
15676:032,076,031,061,201,117,066 
15682:208,008, 173,241,063,073,064 
15688:001,141,241,063,201,035,242 
15694:208,018,140,2 36,063,174,149 
15700:2 28,06 3,17 3,229,06 3,03 2,104 
15706:155,047,172,236,063,076,071 
15712:252,060,174,237,063,189,047 
15718:051,064,032,098,055,076,222 
15724:252,060,032,026,038,056,060 

157 30:173,104,063,237,117,063,103 
15736:170,173,105,063,237,118,218 
15742:063,032,160,047,169,001,086 
15748:141,113,063,096,083,112,228 
15754:101,101,100,083,099,114,224 
15760:105,112,116,032,051,046,094 
15766:048,000,032,098,121,032,225 
15772:06 7,104,097,114,108,101,235 
15778:115,032,066,114,097,110,184 
15784:110,111,110,000,066,117,17 

157 90:102,102,101, 114,032,067,180 
15796:108,101,097,114,101,100,03 3 
15802:000,066,117,102,102,101,162 
15808:114,03 2,070,117,108,108,2 29 
15814:000,068,101,108,101,116,180 

158 20:101,03 2,040,083,044,087,079 
15826 : 044 , 080, 041 , 000 , 058 , 032 , 209 
15832:065,114,101,032,121,111,248 
15838:117,032,115,117,114,101,050 
15844:063,03 2,040,089,047,078,065 
15850:041,058,000,069,082,065,037 
15856:083,069,03 2,065,076,076,129 
15862:032,084,069,088,084,000,091 
15868:069,114,097,115,101,03 2,012 
15874:040,083,044,087,044,080,124 
15880:041,058,03 2,210,197,212,246 
15886:213,210,206,032,116,111,134 
15892:03 2,101,120,105,116,000,2 38 
15898:083,097,118,101,032,040,241 
15904:068,101,118,105,099,101,112 
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15910: 
15916: 
15922: 
15928: 
15934; 
15940: 
15946: 
15952: 
15958: 
15964: 
15970: 
15976: 
15982: 
15988: 
15994: 
16000: 
16006: 
16012: 
16018: 
16024: 
16030: 
16036: 
16042: 
16048: 
16054: 
16060: 
16066: 
16072: 
16078: 
16084: 
16090: 
16096: 
16102: 
16108: 
16114: 
16120: 
16126: 
16132: 
16138: 
16144: 
16150: 
16156: 
16162: 
16168: 
16174: 
16180: 
16186: 
16192; 
16198: 



058 


070 


105 


,108 


101 


110, 


097 


109 


101 


,041 


062 


000, 


069 


114 


114 


111 


114 


032, 


035 


000 


066 


082 


069 


065, 


075 


032 


075 


101 


121 


032, 


065 


098 


111 


114, 


116, 


000, 


078 


111 


032 


069, 


114, 


114, 


111 


114, 


115 


000, 


076, 


111, 


097, 


100, 


032 


040, 


068, 


101, 


118 


105 


099 


101, 


058 


070, 


105, 


108, 


101 


110 


097, 


109, 


101 


041 


062 


000 


032 


080, 


114 


101 


115 


115 


032 


210, 


197 


212 


213 


210 


206 


000, 


068 


049 


058 


042 


046 


042, 


077 


101 


109 


111 


114 


121, 


032 


070 


117 


108 


108 


000, 


078 


111 


032 


116 


101 


120, 


116 


032 


105 


110 


032 


098, 


117 


102 


102 


101 


114 


000, 


080 


114 


105 


110 


116 


032, 


040 


068 


101 


118 


105 


099, 


101 


058 


070 


105 


108 


101, 


110 


097 


109 


101 


041 


062, 


000 


080 


114 


105 


110 


116, 


105, 


110, 


103 


046, 


046, 


046, 


155, 


155, 


000 


073, 


110, 


115, 


101, 


114, 


116 


032, 


110, 


101, 


120 


116 


032 


115, 


104, 


101, 


101, 


116, 


044 


032, 


112, 


114, 


101 


115 


115 


032, 


210, 


197, 


212 


213, 


210 


206, 


000, 


070, 


105 


110 


100 


058 


000, 


078, 


111 


116 


032 


102 


111 


117, 


110 


100 


000 


067, 


104 


097, 


110 


103 


101 


032 


116 


111, 


058 


000 


027 


028 


027 


029, 


027 


030 


027 


031 


032 


195, 


212 


210 


204 


045 


196 


101, 


108 


101 


116 


101, 


032 


204, 


111 


099 


107 


032 


213 


110, 


108 


111 


099 


107 


032 


210, 


101 


110 


097 


109 


101 


032, 


197 


211 


195 


198 


111 


114, 


109 


097 


116 


,032 


195 


212, 


210 


,204 


045 


,204 


111 


097, 


100 


032 


,032 


,068 


114 


105, 


118 


,101 


,032 


,091 


177 


,032, 


178 


,032 


,179 


,032 


,180 


,093, 



,078 
,198 
,092 
,117 
,242 
,060 
,080 
,095 
,012 
,131 
,216 
,164 
,029 
,130 
,171 
,249 
,057 
,186 
,127 
,176 
,203 
,183 
,201 
,184 
,195 
,132 
,034 
,006 
,026 
,219 
,220 
,111 
,169 
,057 
,208 
,053 
,167 
,090 
,210 
,166 
,182 
,183 
,072 
,042 
,039 
,155 
,253 
,103 
,252 
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16204:058,032,000,082,101,110,203 
16210:097,109,101,032,116,111,136 
16216:058,000,070,111,114,109,038 
16222:097,116,032,100,105,115,147 
16228 : 107 , 000 , 000 , 000 , 000 , 000 , 207 
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Atari Source Code 



The source code for SpeedScript was originally developed using 
the MAC/ 65 assembler (from Optimized Systems Software, 
Inc.). The MAC/65 assembler uses the standard MOS source 
code format, so this source code can be assembled on a variety 
of Atari assemblers, including EASMD from OSS and the Atari 
Assembler /Editor cartridge. The source code was originally bro- 
ken up into a number of modules, each SAVE#'d to disk. The 
.INCLUDE pseudo-op was used to link all the modules to- 
gether. All files must be merged together to be assembled with 
the Atari Assembler/Editor cartridge. Line numbers are 
omitted. 

Most pseudo-ops are in standard MOS 6502 notation: * = 
updates the program counter (some assemblers use .ORG in- 
stead); .BYTE assembles a list of numbers or an ATASCII char- 
acter string; .WOR, or .WORD, assembles a list of addresses 
into low byte/high byte format; < extracts the low byte of a 
16-bit expression; > extracts the high byte of a 16-bit ex- 
pression (some assemblers reverse the use of < and >; others, 
such as EASMD and the Assembler /Editor cartridge, use a suffix 
of &255 and /256 to achieve the same effect); and = is used 
to assign an expression to a label (some assemblers use .EQU). 

Beginners should make sure they understand Indirect-Y 
addressing, as in LDA ($FB),Y or LDA (CURR),Y. This mode is 
used extensively in SpeedScript. 

The Atari version of SpeedScript was developed by send- 
ing the Commodore 64 source code to the Atari via modem. 
References to Commodore 64 Kernal ROM routines were re- 
placed with Atari CIO routines. Some routines built into the 
Commodore 64's ROM had to be programmed into Atari 
SpeedScript, with resulting code expansion. References to loca- 
tion 1 (which maps banks of ROM in and out in the 64) were 
omitted. The REFRESH routine, TOPCLR, and a few other 
routines were changed to compensate for Atari's floating 
screen memory. The raster interrupt used to highlight the 
command line in the 64 version became a display-list inter- 
rupt. A custom character set was added to take advantage of 
the Atari's special nine-line character mode. The DOS package 
was written to support disk functions. But much of the source 
code did not need to be changed at all, since SpeedScript's 

69 



SpeedScript 



machine-specific code is segregated into distinct modules. 
These modules were rewritten. Approximately one week was 
required to get a primitive version running, followed by two 
months of testing, debugging, and refining to complete Atari 
SpeedScript. Because of the new character set, the DOS pack- 
age, smoother input/output programming (such as Atari's 
device-independent I/O), and more logical keyboard layout, 
the Atari version may be the best version of SpeedScript yet. 

SpeedScript is written in small modules. Some people 
think that subroutines are useful only when a routine is called 
more than once. I strongly believe in breaking up a problem 
into a number of discrete tasks. These tasks can be written as 
subroutines, then tested individually. Once all the modules are 
working, just link them together with JSRs and you have a 
working program. 

I've also tried to use meaningful labels, but sometimes 
one just runs out of imagination. Comments are added below 
as signposts to guide you through the source code (you 
needn't type them in — if you do, precede each comment with 
a semicolon for the sake of your assembler). Modules are also 
set apart with blank lines. Notice that some modules are used 
in rather creative ways. For example, word left/ word right is 
used both for moving the cursor and in delimiting a word to 
be erased in the erase mode. Also, note that memory locations 
are sometimes used instead of meaningful labels. In order to 
fit the complete source code into memory at once, I sometimes 
had to compromise readability for the sake of brevity. 

Crucial to the understanding of SpeedScript is the RE- 24 
FRESH routine. Study it carefully. REFRESH is the only rou- 
tine in SpeedScript that writes directly to the screen (CIO is 
used to print on the command line). It automatically takes care 
of word-wrap and carriage returns, and provides useful point- 
ers so that the CHECK routine can easily scroll the screen. 
This frees the rest of SpeedScript to just move and modify 
contiguous memory. Carriage returns are not padded out in 
memory with spaces to fill the rest of a line; the REFRESH 
routine takes care of this transparently. 
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SpeedScript 3.0 Source Code for Atari 



Filename: D:SPEED.O 

Location $1F00 is safely above DOS 
2. OS, DOS 3, and OS/A+ DOS. Some 
DOS's may use more memory, so you 
may need to reassemble SpeedScript at 
a higher address, usually the address of 
LOMEM plus 256 bytes to be safe. 

*= $1F00 

Locations used by high-speed memory 
move routines. 






' 



CURR: Position of cursor within text 
memory. SCR: used by the REFRESH 
routine. 



ICCOM 


= 


$0342 


ICBADR 


= 


$0344 


ICBLEN 


= 


$0348 


ICAUX1 


= 


$034A 


ICAUX2 


= 


$034B 


ICSTAT 


= 


$0343 


SHFLOK 


= 


$02BE 


CIO 


= 


$E456 



■-'■■' . ■ i 



FROML 


$80 


FROMH 


$81 


DESTL 


$82 


DESTH 


$83 


LLEN 


= $84 


HLEN 


$85 



Called only when run from DOS. It is 
assumed that the author's initials (that 
conveniently work out in hex) are not 
normally present in memory. If they 
are, we know that SpeedScript has been 
run before, so we avoid the ERASE 
routine to preserve the text in memory. : 



CURR 
SCR 



$86 
$88 



' 



BEGIN 


M 


LDA 


710 ■•■■'■ 


JFom 


o t> 


STA 


■mar.o 


y/e&S. 




JSR 


IISfiT "'-(■■- 


, e=o CJj 


. — 


LDA 


#$CB 




— 


CMP 


FIRSTRUN 




STA 


FIRSTRUN 






BEQ 


SKIPERAS 


. - 




JSR 


ERASE P " 






JSR 


KILLBUFF pS 



i5 



s.ic 



TEX: An alternate location used in tan- 
dem with CURR. COLR is used by RE- 
FRESH. TEMP is used throughout as a 
scratchpad pointer. INDIR is also a re- 
usable indirect pointer. UNDERCURS 
stores the value of the character high- 
lighted by the cursor. 



TEX 


$8A 


TEMP 


$8C 


INDIR 


$8E 


UNDERCURS 


$90 



WINDCOLR: Color of command line 
window supported by HIGHLIGHT. 
RETCHAR is the screen-code value of 
the return-mark (a left-pointing arrow) 
SPACE is the screen-code value of the 
space character. RED and BLUE are 
used as command-line colors 



WINDCOLR 


= 


$91 


RETCHAR 


= 


94 


SPACE 


= 





RED 


= 


$32 


BLUE 


= 


$74 



Input/Output Control System defi- 
nitions for input/output control blocks 
(IOCBs). CIO is the entry point for all 
file-oriented input/output. SHFLOK is 
the SHiFtLOcK flag. 



We save the DOS reset vector and 
change this vector to point to 
SpeedScript 's SYSTEM RESET routine. 
Since this routine is called at power-up, 
right after DOS. SYS runs, we need to 
disable the cold-start flag (location 580) 
and set location $09 to signify a 
successful disk boot. 

/F- A '' LDA $0C 

STA JDOS+1 

LDA $0D 

STA JDOS+2 

LDA # <JDOS 

STA $0C 

LDA # >JDOS 

STA $0D 

LDA #0 

STA 580 

LDA #1 

STA $09 

JRi-^ SKIPERAS JSR INIT2 !? 7 '' L 

/ p 7, -y JMP MAIN p^fe^ 

The character set for the ANTIC 3 
nine-line character mode must be on an 
even 512-byte boundary, so we force 
the assembler's program counter to ad- 
dress $2000 and merge in the character 
set. We then link in each successive 
module of SpeedScript. Again, if your 
assembler cannot handle .INCLUDE, 
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you'll have to merge all these files to- 
gether in the order indicated. 

•= $2000 









.INCLUDE 
.INCLUDE 
.INCLUDE 
.INCLUDE 
.INCLUDE 
.INCLUDE 
.END 



#D:CHSET.SRC 

#D:SPEED.l 

#D:SUPPORT 

#D:DOSPAK 

#D:SPEED.2 

#D:DATA 



Filename D:CHSET.SRC 

The character set here is stored as eight 
bytes per line, so each line defines one 
character. Sheldon Leemon's INSTEDIT 
character editor was used to create the 
character set, and I wrote a special pro- 
gram to convert the character set into 
.BYTE statements. In ANTIC mode 3, 
each character takes up ten scan lines 
of vertical screen space. The characters 
in the lowercase portion of the charac- 
ter set are displayed with a blank line 
at the top line, then the character data 
from bytes 1-7 of the character set. 
Byte of the character's definition is 
displayed at the ninth line of the 
character. The tenth line is always 
blank. This lets you define characters 
with true descenders. The forced blank 
line lets you use more of the character 
matrix for defining a character, so these 
characters are larger than normal Atari 
characters. 

.BYTE 6,0,0,0,0,0,0,0 

.BYTE 0,24,24,24,24,24,0,24 

.BYTE 0,102,102,102,0,0,0,0 

.BYTE 0,102,255,102,102,255,102,0 

.BYTE 24,62,96,60,6,124,24,0 

.BYTE 0,204,216,48,96,204,140,0 

.BYTE 0,56,108,56,112,222,204,118 

.BYTE 0,24,24,48,0,0,0,0 

.BYTE 0,24,48,96,96,96,48,24 

.BYTE 0,48,24,12,12,12,24,48 

.BYTE 0,0,102,60,255,60,102,0 

.BYTE 0,0,24,24,126,24,24,0 

.BYTE 0,0,0,0,0,48,48,96 

.BYTE 0,0,0,0,126,0,0,0 

.BYTE 0,0,0,0,0,0,48,48 

•BYTE 0,0,6,12,24,48,96,192 

.BYTE 0,124,206,222,246,230,198,124 

.BYTE 0,24,56,24,24,24,24,126 

.BYTE 0,124,198,12,24,48,96,254 

.BYTE 0,254,12,24,56,12,198,124 - 

.BYTE 0,28,60,108,204,254,12,12 

.BYTE 0,254,192,252,6,6,198,124 

.BYTE 0,124,192,252,198,198,198,124 

.BYTE 0,126,6,12,24,48,96,96 



.BYTE 0,124,198,198,124,198,198,124 

.BYTE 0,124,198,198,126,12,24,48 

.BYTE 0,0,48,48,0,48,48,0 

.BYTE 0,0,48,48,0,48,48,96 

.BYTE 0,12,24,48,96,48,24,12 

.BYTE 0,0,0,126,0,0,126,0 — . 

.BYTE 0,48,24,12,6,12,24,48 

.BYTE 0,60,102,6,12,24,0,24 

.BYTE 0,124,198,222,214,220,224,60 

.BYTE 0,124,198,198,198,254,198,198 

.BYTE 0,252,198,198,252,198,198,252 

.BYTE 0,124,198,192,192,192,198,124 

.BYTE 0,248,204,198,198,198,204,248 

.BYTE 0,254,192,192,252,192,192,254 

.BYTE 0,254,192,192,252,192,192,192 

.BYTE 0,124,198,192,222,198,198,124—- 

.BYTE 0,198,198,198,254,198,198,198 

.BYTE 0,126,24,24,24,24,24,126 

.BYTE 0,62,12,12,12,12,204,120 

.BYTE 0,198,204,216,240,216,204,198 

.BYTE 0,192,192,192,192,192,192,254 

.BYTE 0,198,238,254,214,198,198,198 

.BYTE 0,198,230,246,254,222,206,198 

•BYTE 0,124,198,198,198,198,198,124 

.BYTE 0,252,198,198,198,252,192,192 

.BYTE u,124,198,198,198,222,124,14 — 

.BYTE 0,252,198,198,252,216,204,198 

.BYTE 0,124,198,192,124,6,198,124 

.BYTE 0,126,24,24,24,24,24,24 

.BYTE 0,198,198,198,198,198,198,124 

.BYTE 0,198,198,198,198,198,108,56 

.BYTE 0,198,198,198,214,254,238,198 

.BYTE 0,198,198,108,56,108,198,198 

.BYTE 0,102,102,102,60,24,24,24 

.BYTE 0,254,12,24,48,96,192,254 

.BYTE 0,30,24,24,24,24,24,30 

.BYTE 0,64,96,48,24,12,6;0 

.BYTE 0,240,48,48,48,48,48,240 

.BYTE 0,8,28,54,99,0,0,0 

.BYTE 0,0,0,0,0,0,0,255 

.BYTE 0,0,0,0,0,0,0^0 

.BYTE 124,194,153,153,129,153,153,230 

.BYTE 252,130,153,130,153,153,131,252 

.BYTE 124,194,153,158,158,153,194,124 

.BYTE 252,130,153,153,153,153,130,252 

.BYTE 254,130,158,132,156,158,130,254- 

.BYTE 126,193,206,194,206,204,204,120 

.BYTE 124,194,153,158,145,153,194,124 

.BYTE 246,153,153,129,153,153,153,246 

.BYTE 127,97,115,50,50,115,97,127 

.BYTE 62,50,50,50,50,114,198,124 

.BYTE 230,153,146,132,146,153,153,230 

.BYTE 120,76,76,76,76,78,66,124 

.BYTE 230,153,129,129,137,153,153,230 

.BYTE 230,153,137,129,145,153,153,230 

.BYTE 124,194,153,153,153,153,194,124 

.BYTE 254,195,201,201,195,206,200,240 

.BYTE 124,194,153,153,153,146,201,118 

.BYTE 124,194,201,201,194,201,201,247 

.BYTE 126,195,158,194,249,153,195,126 

.BYTE 254,194,102,100,100,100,100,124 

.BYTE 246,1S3,153,153,153,153,194,124 

.BYTE 230,153,153,153,153,194,100,56 
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.BYTE 246,153,153,153,137,129,153,246 

.BYTE 230,153,153,194,153,153,153,230 

.BYTE 230,153,153,195,230,100,100,124 

.BYTE 254,193,249,50,228,206,193,254 

.BYTE 120,96,120,96,126,24,30,0 

.BYTE 0,24,60,126,24,24,24,0 

.BYTE 0,24,24,24,126,60,24,0 

.BYTE 0,0,0,12,12,88,112,120 

.BYTE 0,24,12,126,12,24,0,0 

.BYTE 0,0,24,60,126,126,60,24 

.BYTE 0,0,0,124,6,126,198,126 

.BYTE 0,0,192,252,198,198,198,252 

.BYTE 0,0,0,124,198,192,198,124 

.BYTE 0,0,6,126,198,198,198,126 

.BYTE 0,0,0,124,198,254,192,124 

.BYTE 0,0,62,96,252,96,96,96 

.BYTE 6,252,0,126,198,198,198,126 

.BYTE 0,0,192,192,252,198,198,198 

.BYTE 0,0,24,0,56,24,24,60 

.BYTE 24,240,24,0,24,24,24,24 

.BYTE 0,0,192,204,216,248,204,198 

.BYTE 0,0,56,24,24,24,24,60 

.BYTE 0,0,0,204,254,254,214,198 

.BYTE 0,0,0,252,198,198,198,198 

.BYTE 0,0,0,124,198,198,198,124 

.BYTE 192,192,0,252,198,198,198,252 

.BYTE 6,6,0,126,198,198,198,126 

.BYTE 0,0,0,252,198,192,192,192 

.BYTE 0,0,0,126,192,124,6,252 

.BYTE 0,0,48,254,48,48,48,30 

.BYTE 0,0,0,198,198,198,198,126 

.BYTE 0,0,0,198,198,198,108,56 

.BYTE 0,0,0,198,214,254,124,108 

.BYTE 0,0,0,198,108,56,108,198 

.BYTE 6,252,0,198,198,198,198,126 

.BYTE 0,0,0,254,12,56,96,254 

.BYTE 14,0,14,24,24,56,24,24 

.BYTE 24,24,24,24,24,24,24,24 

.BYTE 112,0,112,24,24,28,24,24 

.BYTE 0,0,0,8,24,56,24,8 

.BYTE 0,0,0,16,16,24,28,24 I 2 

• + 16 
.END 



UMOVE is a high-speed memory move 
routine. It gets its speed from self- 
modifying code (the $FFFFs at 
MOVLOOP are replaced by actual ad- 
dresses when UMOVE is called). 
UMOVE is used to move an overlap- 
ping range of memory upward (toward 
location 0), so it is used to delete. Set 
FROML/FROMH to point to the source 
area of memory, DESTL/DESTH to 
point to the destination, and 
LLEN/HLEN to hold the length of the 
area being moved. 



Filename D:SPEED.l 

This module is chiefly concerned with 
the word processor editing functions. It 
contains many common subroutines, 
such as TOPCLR and PRMSG to clear 
the command line and print messages. 
It contains the initialization routines 
and takes care of memory moves (in- 
serts and deletes). A second module, 
SPEED. 2, is responsible for most 
input/output, including the printer 
routines. SPEED. 1 is the largest file in 
the linked chain. 



UMOVE 


LDA 


FROML 




STA 


MOVLOOP + 1 




LDA 


FROMH 




STA 


MOVLOOP + 2 




LDA 


DESTL 




STA 


MOVLOOP +4 




LDA 


DESTH 




STA 


MOVLOOP + 5 




LDX 


HLEN 




BEQ 


SKIPMOV 


MOV1 


LDA 


#0 


MOV2 


STA 


ENDPOS 




LDY 


#0 


MOVLOOP 


LDA 


$FFFF,Y 




STA 


$FFFF,Y 




INY 






CPY 


ENDPOS 




BNE 


MOVLOOP 




INC 


MOVLOOP + 2 




INC 


MOVLOOP + 5 




CPX 


#0 




BEQ 


OUT 




DEX 






BNE 


MOV1 


SKIPMOV 


LDA 


LLEN 




BNE 


MOV2 


OUT 


RTS 





DMOVE uses the same variables as 
UMOVE, but it is used to move an 
overlapping block of memory down- 
ward (toward location $FFFF), so it is 
used to insert. If the block of memory 
to be moved does not overlap the 
destination area, then either routine can 
be used. 



DMOVE 


LDA 
TAX 


HLEN 




ORA 


LLEN 




BNE 


NOTNULL 




RTS 




NOTNULL 


CLC 
TXA 






ADC 


FROMH 
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w 






DMOV1 
DMOVLOOP 



SKIPDMOV 



STA 

LDA 

STA 

CLC 

TXA 

ADC 

STA 

LDA 

STA 

INX 

LDY 

BNE 

BEQ 

LDY 

LDA 

STA 

DEY 

CPY 

BNE 

DEC 

DEC 

DEX 

BNE 

RTS 



DMOVLOOP + 2 
FROML 
DMOVLOOP + 1 



DESTH 

DMOVLOOP + 5 
DESTL 
DMOVLOOP + 4 

LLEN 

DMOVLOOP 

SKIPDMOV 

#255 

$FFFF,Y 

$FFFF,Y 

#255 

DMOVLOOP 
DMOVLOOP + 2 
DMOVLOOP + 5 



DMOV1 



Z^-g D 



REFRESH copies a screenful of text 
from the area of memory pointed to by 
TOPLIN. It works like a printer routine, 
fitting a line of text between the screen 
margins, wrapping words, and restarts 
at the left margin after printing a car- 
riage return. SpeedScript constantly calls 
this routine while the cursor is blink- 
ing, so it has to be very fast. To elimi- 
nate flicker, it clears out the end of 
each line instead of first clearing the 
screen. It stores the length of the first 
screen line for the sake of the CHECK 
routine (which scrolls up by adding 
that length to TOPLIN) and the last 
text location referenced (so CHECK can 
see if the cursor has moved off the vis- 
ible screen). REFRESH can automati- 
cally handle different screen widths. 

REFRESH LDA #40 C & 



TOPLIN points to the first character 
within text to be printed at the top-left 
corner of the screen. 



PPAGE 
PL1NE 



SLOOP 



NXCUR 



SBRK 
BREAK 



COPY 



CLC 

LDA 

STA 

LDA 

STA 

LDX 

LDA 

STA 

LDY 

LDA 

STA 

- INY 

" AND 

/CMP 

/BEQ 

CPY 

• BNE 

• DEY 

-XDA 

"'AND 

X CMP 

^BEQ 

DEY 

BNE 

LDY 

DEY 

INY 

STY 

LDY 

LDA 

STA 

INY 



y 



, CPY 



' 






INY 

CLC 



■/n, 



Z^CLRLN 



RLM: Left margin. Location $58/$59 
points to the address of screen 
memory. 



BNE 
"" CLC 
" TYA 
ADC 
STA 
LDA 
ADC 
STA 
CPX 
BNE 
STY 
CPY 
BEQ 



TOPLIN 

TEX 

TOPLIN + 1 

TEX + 1 

#1 LI 

INSMODE 

WINDCOLR 

#0 _ Co 

(TEX),Y 

LBUFF,Y 

#127 

#RETCHAR ■ 
BREAK 

LINELEN 
PLINE 






) r 






, > 



(TEX),Y 
#127 -- 
#SPACE 
SBRK 



:- **L> 



SLOOP 

LINELEN 



TEMP 
#0 

LBUFF,Y 
(SCR),Y 

TEMP 
COPY 



1 ^° 



" ■ - 



J 



:i ■ 



■ 
■ 



1= SfRC 



TEX 

TEX 

TEX + 1 - 

#0 [■ 

TEX+1 J 

#1 

CLRLN 

LENTABLE 

LINELEN 

CLEARED 



e 

1to 



■ ' ■ 



■ 



,- ' 















■ 









; 




Character #64 (ATASCII value of 0) 
fills the gap when a line is broken. It 
can be redefined to show or not show 
.these false spaces. 

; LDA #64 



■-■■ : 



CLEARED 



STA 

INY 

JMP 

-CLC 

' LDA 



(SCR),Y 



CLRLN 



SCR 



. > 
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INCNOT 






2SJ4 


PDONE 


1-0 


• 



J 



»A/^ 



ADC 

STA 

BCC 

INC 

INX 

CPX 

BEQ 

JMP 

LDA 

STA 

LDA 

STA 

RTS 



#40 
SCR -H 
INCNOT 
SCR + 1 

#19" 

PDONE 

PPAGE 

TEX 

BOTSCR 

TEX + 1 

BOTSCR 



S"? 



I 



1 (character out) prints the character in 
the accumulator to the screen. 
CHROUT is a subroutine in the SUP- 
PORT package. 



kftlK 






•'. 



The following routine fills the entire 
text area with space characters (screen 
code 0), effectively erasing all text. It is 
called when the program is first run 
and when an Erase All is performed. It 
also initializes the cursor position 
(CURR) and the end-of-text pointer 
(LASTLINE). 



PRMSG 



PRLOOP 



PREXIT 
GETAKEY 



JDOS 



25/^ 



js -#>g/U. 






zsac 



2.SS6 






ERASE 


LDA 


TEXSTART 




STA 


TEX 




STA 


TOPLIN 




STA 


LASTLINE 




STA 


CURR 




LDA 


TEXSTART + 1 




f~STA 


TEX + 1 


\JD + | 


J STA 


TOPLIN + 1 




STA 


LASTLINE + 1 




l__STA 


CURR+1 




SEC 






LDA 


TEXEND + 1 




SBC 

TAX 


TEXSTART + 1 




LDA 


#SPACE 


CLRLOOP 


LDY 


#255 




DEC 


TEX + 1 




STA 


(TEX),Y 




INY 






INC 


TEX + 1 


CLR2 


STA 
INY 


(TEX),Y 




BNE 


CLR2 




INC 


TEX + 1 




DEX 






BNE 


CLR2 






(TEX),Y 




v - a 1 A 


, 


_~ -, RTS 





.*,,.' 



zs? 



^55 

PRMSG is used anytime we need to 
print something at the top of the screen 
(the command line). Pass it the address 
of the message to be printed by storing 
the low byte of the address in the accu- 
mulator and the high byte in the Y reg- 
ister. The message in memory must end 
with a zero byte. The routine does not 
add a carriage return. CHROUT 



NOBLINK 



STA 

STY 

LDA 

STA 

LDY 

LDA 

BEQ 

JSR 

INY 

BNE 

RTS 

JSR 

BEQ 

RTS 

JSR 

LDA 

BEQ 

LDY 

LDA 

STA 

JSR 

JMP 



- 



i : 



TEMP 

TEMP + 1 

#1 

752 

#0 

(TEMP),Y 

PREXIT 

CHROUT 

PRLOOP 

GETIN 
GETAKEY 



PREXIT 

BLINK 

NOBLINK 

#0 

UNDERCURS 
(CURR),Y 
INIT2 

MAIN 






I 









The initialization routine sets up the 
memory map, clears out certain flags, 
and enables the display-list interrupt. 

INIT 

2 " ; ■■ 



LDA 


#125 


JSR 


CHROUT *" 


LDA 


#0 


STA 


INSMODE 


STA 


TEXSTART 


STA 


TEXEND 


STA 


TEXBUF 


STA 


BUFEND 


STA 


HUNTLEN 


STA 


REPLEN 


STA 


ESCFLAG 


STA 


shflOk 


STA 


RLM 


LDA 


1U»^ -&- <gO 


STA -tlNELEN 



Label END is at the end of the source 
code, so it points to the last address 
used by the object code. We use it to 
calculate the start-of-text memory. 

LDA # >END 
CLC 

ADC #1 

STA TEXSTART + 1 

Location 561 points to the display list, 
which holds screen information at the 
top of memory. We use it as the last 
address available for storing text or 
buffer text. 
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LDA 561 

SEC 

SBC #1 

STA BUFEND + 1 

SEC 

SBC #8 

STA TEXBUF + 1 

SEC 

SBC #1 

STA TEXEND + 1 

LDA #$FF 

STA FPOS + 1 

If location $4B is 0, then SpeedScript is 
booted from disk. If we booted from 
cassette, we free up the DOS area 
($0700-$lE00) for use as the text 
buffer, and free up the text memory 
used by disk-based SpeedScript as the 
text buffer. 



_C5 C DISKBOOT 



LDA 


$4B 


BEQ 


DISKBOOT 


LDA 


BUFEND + 1 


STA 


TEXEND + 1 


LDA 


#$07 


STA 


TEXBUF+1 


LDA 


#$1E 


STA 


BUFEND + 1 


RTS 





JSR PRMSG 

LDA #0 

STA MSGFLG 
RTS 

TOPCLR keeps the command line 
clean. It is called before most messages. 
It's like a one-line clear-screen. It also 
forces the left margin (82) to 0, and 
homes the cursor to the beginning of 
the command line by zeroing out the X 
and Y cursor positions (84 and 85). 

TOPCLR LDY #39 

LDA #SPACE 

TOPLOOP STA ($58),Y 

DEY 

BPL TOPLOOP 

LDA #0 

STA 82 

STA 85 

STA 84 

RTS 

Convert ATASCII to screen codes. 



r 



. • 



- ASTOIN 
**0 7 c*jW~ 



The second initialization routine turns 
on the display-list interrupt (HIGH- 
LIGHT), homes the cursor, and prints 
the credit line. 



JL& 



r INIT2 
I 



JSR 


HIGHLIGHT 


LDA 


TEXSTART 


STA 


CURR 


LDA 


TEXSTART + 1 


STA 


CURR+1 


JSR 


REFRESH 


JSR 


SYSMSG 


LDA 


# <MSG2 


LDY 


# >MSG2 


JSR 


PRMSG 


INC 


MSGFLG 


JMP 


CHECK 



■JO 






NOTCTRL 
LOWR 



PHA 

AND #128 

STA TEMP 

PLA 

AND #127 

CMP #96 

BCS LOWR 

CMP #32 

BCS NOTCTRL " 

CLC 

ADC 

JMP 

SEC 

SBC #32" 

ORA TEMP 

RTS 



#64 
LOWR 



2C46 



■ 



SYSMSG displays "SpeedScript 3.0." 
The message flag (MSGFLG) is set 
when a message is to be left on the 
screen only until the next keystroke. 
After that keystroke, SYSMSG is called. 
The INIT2 routine prints the credit line 
with the MSGFLG set so that you 
won't have to stare at the author's 
name while you're writing — a modesty 
feature. 



-ZC° f 



SYSMSG 


JSR 


TOPCLR 


- 


LDA 


# <MSG1 




LDY 


# >MSG1 



The MAIN loop blinks the cursor, 
checks for keystrokes, converts them 
from ATASCII to screen codes, puts 
them in text at the CURRent position, 
and increments the CURRent position 
and LASTLINE. It also checks for spe- 
cial cases like the RETURN key and 
passes control characters to the CON- 
TROL routine. The INSMODE flag is 
checked to see if we should insert a 
space before a character. 

2<>'SMAIN I LDY #0 

STY BLINK 

LDA (CURR),Y 

STA UNDERCURS 

MAIN2 LDY #0 ' 

STY SELFLAG 

LDA (CURR),Y 

g t EOR #$80 
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WAIT 



STA 


(CURR),Y 


LDA 


BLINK 


EOR 


#1 


STA 


BLINK 


JSR 


REFRESH 


JSR 


GETIN - 


BNE 


KEYPRESS 



NOTCR 



z-4- s e> 



We check for the START key, and if 
pressed, go to the HOME cursor 
routine. 



LDA 
STA 


#8 , 
53279 ~\ 0>.^£ MtA*"- 
53279 C 


LDA 


CMP 


#6 


BNE 


FLIPIT 


LDY 


#0 


STY 


BLINK 


LDA 


UNDERCURS ' 


STA 


(CURR),Y 


JSR 


HOME 


JMP 


MAIN 



OVERCTRL 



The realtime clock (location 20), which 
counts in 1/60 seconds, is checked for 
1 6/60 seconds (about 1/5 second) to 
see if it's time to blink the cursor. 



FLIPIT 



LDA 

AND 

BEQ 

LDA 

STA 

JMP 



20 

#16 

WAIT 

#0 

20 

MAIN2 



DOINS 
NOTINST 



LDX 

JMP 

TXA 

BIT 

BMI 

CMP 

BCS 

AND 

CMP 

BCC 

CMP 

BCS 

CMP 

BEQ 

CMP 

BEQ 

CMP 

BEQ 

TXA 

PHA 

LDY 

STY 

LDA 

CMP 

BEQ 

LDA 

BEQ 

JSR 

PLA 

JSR 

AND 

ORA 

LDY 



#30 
OVERCTRL 

ESCFLAG 

OVERCTRL 

#156 

CONTROL 

#127 

#32 

CONTROL 

#123 

CONTROL 

#92 

CONTROL 

#94 

CONTROL 

#95 

CONTROL 



#0 

ESCFLAG 

(CURR),Y 

#RETCHAR 

DOINS 

INSMODE 

NOTINST 

INSCHAR 

ASTOIN 
#127 — 

SELFLAG 

#0 



A key has been pressed. We check the 
SELECT key to see if the keystroke 
should be inverted. 



Put the character into memory. 



KEYPRESS 


TAX 






LDA 


#8 




STA 


53279 1 Clu 
53279 S 




LDA 




CMP 


#5 




BNE 


NOTSEL 




LDA 


#128 




STA 


SELFLAG 


NOTSEL 


LDY 


#0 




LDA 


UNDERCURS 




STA 


(CURR),Y 


NOTBKS 


LDA 


MSGFLG 




BEQ 


NOMSG 




TXA 






PHA 






JSR 


SYSMSG 




PLA 






TAX 




NOMSG 


TXA 






CMP 


#155 




BNE 


NOTCR 



hi. 



i 



STA 

JSR 

SEC 

LDA 

SBC 

STA 

LDA 

SBC 

ORA 

BCC 

LDA 

ADC 

STA 

LDA 

ADC 

STA 






i">S- 



I 



(CURR),Y 
REFRESH 

CURR 

LASTLINE 

TEMP 

CURR+1 

LASTLINE + 1 

TEMP 

INKURR 

CURR 

#0 

LASTLINE 

CURR+1 

#0 

LASTLINE + 1 



Move the cursor forward. 



INKURR 



NOINC2 



INC 
BNE 
INC 
JSR 
JMP 



CURR 

NOINC2 

CURR+1 

CHECK 

MAIN 



Change a carriage return into a back 
arrow. 



CONTROL looks up a keyboard com- 
mand in the list of control codes at 
CTBL. The first byte of CTBL is the 
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actual number of commands. Once the 
position is found, this position is dou- 
bled as an index to the two-byte ad- 
dress table at VECT. The address of 
MAIN — 1 is put on the stack, simulat- 
ing the return address; then the address 
of the command routine taken from 
VECT is pushed. We then perform an 
RTS. RTS pulls the bytes off the stack 
as if they were put there by a JSR. This 
powerful technique is used to simulate 
ON-GOTO in machine language. 



CONTROL LDX 



SRCH 



FOUND 



CTBL 



VECT 



CMF 

BEQ 

DEX 

BNE 

JMP 

DEX 

TXA 

ASL 

TAX 

LDA 

PHA 

LDA 

PHA 

LDA 

PHA 

LDA 

PHA 

RTS 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.WORD 



.WORD 

.WORD 

.WORD 
.WORD 
.WORD 
.WORD 



CTBL 

CTBL,X 

FOUND 

SRCH 

MAIN 



A 

# >MAIN-1 

# <MAIN-1 
VECT+LX 
VECT,X 

35 

31,30,92,94,2,20,28,29 

126,255,4 

9,125,124,95,5,12,19 

13,18,24,26,16 

254,1,11,6,21,127,157 

3,7,156,27,15 

RIGHT -LLEFT-1, 

WLEFT-1, WRIGHT 

-l,BORDER-l,LET 

TER,S-1 

SLEFT-1,SRIGHT- 

1,DELCHAR-1,INSC 

HAR-LDELETE-1 

INSTGL-LCLEAR 

-1,PARIGHT-1,PA 

RLEFT-1 

ERAS-l,TLOAD-l, 

TSAVE-1 

DOS — LINSBUFFER 

-LSWITCH-1 

ENDTEX-LPRINT 

— 1 

DELIN - 1, ALPHA - 

1,KILLBUFF-1,HUN 

T-1,FREEMEM-1,T 

AB-1 



.WORD LOTTASPACE-LRE 
PSTART — LSANDR 
-1,EATSPACE-1,E 
SC-LONOFF-1 

Toggle ESCape mode. 

ESC LDA ESCFLAG 

EOR #128 

STA ESCFLAG 
RTS 

Change the character definition of the 
character used to fill in the end of a 
line. It alternates between being a 
blank space, and being a blank space 
with a tiny dot visible. This lets you see 
which spaces are actually part of your 
text and which are just used to parse 
the screen. Beware of the address 
$2204 if you reassemble at a different 
address (sorry, I didn't use a label). 

ONOFF LDA $2204 

EOR #16 

STA $2204 
RTS 

The CHECK routine first prevents the 
cursor from disappearing past the 
beginning or end-of-text memory and 
prevents us from cursoring past the 
end-of-text pointer. It also checks to see 
if the cursor has left the visible screen, 
scrolling with REFRESH to make the 
cursor visible. The double-byte SBCs 
are used as a 16-bit CMP macro, setting 
the Z and C flags just like CMP does. 

CHECK 



OKI 



JSR 


CHECK2 


SEC 




LDA 


CURR 


SBC 


TOPLIN 


LDA 


CURR+1 


SBC 


TOPLIN + 1 


BCS 


OKI 


SEC 




LDA 


TOPLIN 


SBC 


TEXSTART 


STA 


TEMP 


SBC 


TEXSTART + 1 


ORA 


TEMP 


BEQ 


OKI 


LDA 


CURR 


STA 


TOPLIN 


LDA 


CURR + 1 


STA 


TOPLIN + 1 


JSR 


REFRESH 


SEC 




LDA 


BOTSCR 


SBC 


CURR 
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STA 


TEX 




LDA 


BOTSCR + 1 




SBC 


CURR+1 




STA 


TEX + 1 




ORA 


TEX 




BEQ 


EQA 




BCS 


OK2 


EQA 


CLC 






LDA 


TOPLIN 




ADC 


LENTABLE 




STA 


TOPLIN 




LDA 


TOPLIN + 1 




ADC 


#0 




STA 


TOPLIN + 1 


REF 


JSR 


REFRESH 




JMP 


OKI 


OK2 


RTS 




CHECK2 


SEC 






LDA 


LASTLINE 




SBC 


TEXEND 




STA 


TEMP 




LDA 


LASTLINE + 1 




SBC 


TEXEND + 1 




ORA 


TEMP 




BCC 


CK3 




LDA 


TEXEND 




STA 


LASTLINE 




LDA 


TEXEND + 1 




STA 


LASTLINE + 1 


CK3 


SEC 






LDA 


CURR 




SBC 


TEXSTART 




STA 


TEMP 




LDA 


CURR+1 




SBC 


TEXSTART + 1 




ORA 


TEMP 




BCS 


INRANGE 




LDA 


TEXSTART 




STA 


CURR 




LDA 


TEXSTART + 1 




STA 


CURR+1 




RTS 




INRANGE 


SEC 






LDA 


CURR 




SBC 


LASTLINE 




STA 


TEMP 




LDA 


CURR+1 




SBC 


LASTLINE + 1 




ORA 


TEMP 




BCS 


OUTRANGE 




RTS 




OUTRANGE 


LDA 


LASTLINE 




STA 


CURR 




LDA 


LASTLINE + 1 




STA 


CURR+1 




RTS 







LDA 


53279 




CMP 


#3 




BNE 


CRIGHT 




LDA 


LINELEN 




CMP 


*«-" tf ° 




BEQ 


NOBIGGER 




INC 


LINELEN 




INC 


LINELEN 




DEC 


RLM 




JSR 


REFRESH 




JSR 


CHECK 




LDA 


#125 




JSR 


CHROUT 


NOBIGGER 


JMP 


SYSMSG 


CRIGHT 


INC 


CURR 




BNE 


NOINCR 




INC 


CURR+1 


NOINCR 


JMP 


CHECK 



Move cursor left. If the OPTION key is 
held down, we instead decrease the line 
length. 



Move cursor right. If the OPTION key 
is held down, we instead increase the 
line length. 

RIGHT LDA #8 

STA 53279 



LEFT 


LDA 


#8 




STA 


53279 




LDA 


53279 




CMP 


#3 




BNE 


CLEFT 




LDA 


LINELEN 




CMP 


#2 




BEQ 


TOOSMALL 




DEC 


LINELEN 




DEC 


LINELEN 




INC 


RLM 




JSR 


REFRESH 




JSR 


CHECK 




LDA 


#125 




JSR 


CHROUT 


TOOSMALL 


SYSMSG 


CLEFT 


LDA 


CURR 




BNE 


NODEC 




DEC 


CURR+1 


NODEC 


DEC 


CURR 




JMP 


CHECK 


Word left. 


We look backward for a 


space. 






WLEFT 


LDA 


CURR 




STA 


TEX 




LDA 


CURR+1 




STA 


TEX + 1 




DEC 


TEX + 1 




LDY 


#$FF 


STRIP 


LDA 


(TEX),Y 




CMP 


#SPACE 




BEQ 


STRLOOP 




CMP 


#RETCHAR 




BNE 


WLOOP 


STRLOOP 


DEY 






BNE 


STRIP 


WLOOP 


LDA 


(TEX),Y 




CMP 


#SPACE 




BEQ 


WROUT 



79 



SpeedScript 



CMP #RETCHAR 

BEQ WROUT 
DEY 

BNE WLOOP 
RTS 
WROUT SEC 
TYA 

ADC TEX 

STA CURR 

LDA TEX+1 

ADC #0 

STA CURR+1 

JMP CHECK 

Word right. We scan forward for a 
space. OIDS is not a meaningful label. 

WRIGHT LDY #0 

RLOOP LDA (CURR),Y 

CMP #SPACE 

BEQ ROUT 

CMP #RETCHAR 

BEQ ROUT 
INY 

BNE RLOOP 
RTS 

ROUT INY 

BNE OIDS 

INC CURR+1 

LDA CURR+1 

CMP LASTLINE + 1 

BCC OIDS 

BNE LASTWORD 

OIDS LDA (CURR),Y 

CMP #SPACE 

BEQ ROUT 

CMP #RETCHAR 

BEQ ROUT 

Add the Y register to the CURRent 
cursor position to move the cursor. 
CHECK prevents illegal cursor move- 
ment. LASTWORD is called if the end 
of the word cannot be found before we 
reach the end-of-text. 

ADYCURR CLC 

TYA 

ADC CURR 

STA CURR 

LDA CURR+1 

ADC #0 

STA CURR+1 

JMP CHECK 

LDA LASTLINE 

STA CURR 

LDA LASTLINE + 1 

STA CURR+1 

JMP CHECK 

ENDTEX is tricky. If the end-of-text 
pointer would point to an area already 
visible on the screen, we just move the 



WRTN 
LASTWORD 



cursor there and call REFRESH. Other- 
wise, we step back IK from the end-of- 
text and then scroll to the end. This is 
necessary since in the worst case only 
18 characters of return-marks would fill 
the screen. 

ENDTEX 



LDA 


#0 


STA 


TOPLIN 


LDA 


LASTLINE + 1 


SEC 




SBC 


#4 


CMP 


TEXSTART + 1 


BCS 


SAFE 


LDA 


TEXSTART + 1 


STA 


TOPLIN + 1 


JSR 


REFRESH 


JMP 


LASTWORD 



SAFE 



Change the border color. The display- 
list interrupt automatically places 
SCRCOL into the hardware back- 
ground color register #2. 

BORDER INC SCRCOL 
INC SCRCOL 
RTS 

SCRCOL .BYTE 8 

Change text luminance. TEXCOLR is 
stored into hardware color register #1 
during the display-list interrupt. 



LETTERS 



TEXCOLR 



INC TEXCOLR 

INC TEXCOLR 

LDA TEXCOLR 

AND #15 

STA TEXCOLR 

RTS 

.BYTE 2 



Sentence left. We look backward for 
ending punctuation or a return-mark, 
then go forward until we run out of 
spaces. 

SLEFT 



PMANY 



PSRCH 



LDA 


CURR 


STA 


TEX 


LDA 


CURR+1 


STA 


TEX + 1 


DEC 


TEX + 1 


LDY 


#$FF 


LDA 


(TEX),Y 


CMP 


#'.-32 


BEQ 


PSRCH 


CMP 


#'!-32 


BEQ 


PSRCH 


CMP 


#7-32 


BEQ 


PSRCH 


CMP 


#RETCHAR 


BNE 


PSLOOP 


DEY 




BNE 


PMANY 
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RTS 




PSLOOP 


LDA 


(TEX),Y 




CMP 


#'.-32 




BEQ 


PUNCT 




CMP 


#'!-32 




BEQ 


PUNCT 




CMP 


#7-32 




BEQ 


PUNCT 




CMP 


#RETCHAR 




BEQ 


PUNCT 




DEY 






BNE 


PSLOOP 




DEC 


TEX + 1 




LDA 


TEX + 1 




CMP 


TEXSTART 




BCS 


PSLOOP 




JMP 


FIRSTWORD 


PUNCT 


STY 


TEMP 




DEC 


TEMP 


SKIPSPC 


INY 






BEQ 


REPEAT 




LDA 


(TEX),Y 




CMP 


#SPACE 




BEQ 


SKIPSPC 




DEY 






JMP 


WROUT 


REPEAT 


LDY 


TEMP 




JMP 


PSLOOP 


FIRSTWORD 


LDA 


TEXSTART 




STA 


CURR 




LDA 


TEXSTART + 1 




STA 


CURR + 1 




JMP 


CHECK 



Sentence right. We look forward for 
ending punctuation, then skip forward 
until we run out of spaces. 



SRIGHT 


LDY 


#0 


SRLP 


LDA 


(CURR),Y 




CMP 


#'.-32 




BEQ 


PUNCT2 




CMP 


#'!-32 




BEQ 


PUNCT2 




CMP 


#7 — 32 




BEQ 


PUNCT2 




CMP 


#RETCHAR 




BEQ 


PUNCT2 




INY 






BNE 


SRLP 




INC 


CURR+1 




LDA 


CURR+1 




CMP 


LASTLINE + 1 




BEQ 


SRLP 




BCC 


SRLP 


SREXIT 


JMP 


LASTWORD 


PUNCT2 


INY 






BNE 


NOFIXCURR 




INC 


CURR+1 




LDA 


CURR+1 




CMP 


LASTLINE + 1 




BCC 


NOFIXCURR 




BEQ 


NOFIXCURR 




JMP 


LASTWORD 



NOFIXCURR LDA (CURR),Y 

CMP #SPACE 
BEQ PUNCT2 
CMP #'.-32 
BEQ PUNCT2 
CMP #'!-32 
BEQ PUNCT2 
CMP #7-32 
BEQ PUNCT2 
CMP #RETCHAR 
BEQ PUNCT2 
JMP ADYCURR 

The text buffer starts at a fixed location, 
but the end of the buffer is changed as. 
text is added to it. To clear the buffer, 
we just set the end of the buffer to the 
value of the start of the buffer. No text 
is actually erased. 



KILLBUFF 


LDA 


TEXBUF 




STA 


TPTR 




LDA 


TEXBUF +1 




STA 


TPTR+1 




JSR 


TOPCLR 




LDA 


# <KILLMSG 




LDY 


# >KILLMSG 




JSR 


PRMSG 




LDA 


#1 




STA 


MSGFLG 




RTS 





This is the second level of the general- 
purpose delete routines. UMOVE is the 
primitive core of deleting. For CTRL-D, 
the CURRent cursor position is the 
source; then a cursor command is 
called to update the cursor pointer. This 
becomes the destination. For CTRL-E, 
the CURRent cursor position is the 
destination; a cursor movement routine 
is called, and this becomes the source. 
UMOVE is then called. We actually 
move more than the length from the 
source to the end-of-text. Some extra 
text is moved from past the end-of-text. 
Since everything past the end-of-text is 
spaces, this neatly erases everything 
past the new end-of-text position. 
Naturally, the end-of-text pointer is up- 
dated. Before the actual delete is per- 
formed, the text to be deleted is stored 
in the buffer so that it can be recalled 
in case of error. The buffer doubles as a 
fail-safe device, and for moving and 
copying text. Checks are made to make 
sure that the buffer does not overflow. 



DELI 



SEC 

LDA CURR 

SBC TEXSTART 
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STA 


TEMP 






LDA 


CURR+1 






SBC 


TEXSTART + 1 






ORA 


TEMP 






BNE 


DELIA 


• 


DELABORT 


PLA 
PLA 
RTS 






DELIA 


LDA 


CURR 






STA 


FROML 






LDA 


CURR + 1 






STA 


FROMH 






RTS 






DEL2 


SEC 








LDA 


CURR 






STA 


DESTL 






EOR 


#$FF 






ADC 


FROML 






STA 


GOBLEN 






LDA 


CURR+1 






STA 


DESTH 






EOR 


#$FF 






ADC 


FROMH 






STA 


GOBLEN + 1 




DELC 


LDA 


FROML 






STA 


FROMSAV \_ 






LDA 


FROMH 






STA 


FROMSAV +1 






LDA 


DESTL 






STA 


DESTSAV 






STA 


FROML 






LDA 


DESTH 






STA 


DESTSAV + 1 






STA 


FROMH 






SEC 








LDA 


GOBLEN + 1 






ADC 


TPTR + 1 






CMP 


BUFEND + 1 






BCC 


GOSAV 






JSR 


TOPCLR 






LDA 


# <BUFERR 






LDY 


# >BUFERR 






JSR 


PRMSG 






LDA 


#1 






STA 


MSCFLG 






RTS 






GOSAV 


LDA 


TPTR 






STA 


DESTL 






LDA 


TPTR + 1 






STA 


DESTH 






LDA 


GOBLEN 






STA 


LLEN 






CLC 








ADC 


TPTR 






STA 


TPTR 






LDA 


GOBLEN + 1 






STA 


HLEN 






ADC 


TPTR+1 






STA 


TPTR+1 






JSR 


UMOVE 






LDA 


FROMSAV 






STA 


FROML 






LDA 


FROMSAV +1 



STA 


FROMH 


LDA 


DESTSAV 


STA 


DESTL 


LDA 


DESTSAV + 1 


STA 


DESTH 


SEC 




LDA 


LASTLINE 


SBC 


DESTL 


STA 


LLEN 


LDA 


LASTLINE + 1 


SBC 


DESTH 


STA 


HLEN 


JSR 


UMOVE 


SEC 




LDA 


LASTLINE 


SBC 


GOBLEN 


STA 


LASTLINE 


LDA 


LASTLINE + 1 


SBC 


GOBLEN + 1 


STA 


LASTLINE + 1 


RTS 





Most delete commands end up calling 
the above routines. The single-character 
deletes must subtract 1 from the buffer 
pointer so that single characters are not 
added to the buffer. But note how short 
these routines are. 

Delete character (BACK S) 



DELCHAR 



FIXTP 



CTRL-BACK S 
DELIN 



JSR DELI 

JSR LEFT 

JSR DEL2 

SEC 

LDA TPTR 

SBC #1 

STA TPTR 

LDA TPTR + 1 

SBC #0 

STA TPTR + 1 

RTS 



JSR RIGHT 

JSR DELI 

JSR LEFT 

JSR DEL2 

JMF FIXTP 



Called by CTRL-D. As mentioned, it 
stores CURR into FROML/FROMH, 
moves the cursor either by sentence, 
word, or paragraph, then stores the 
new position of CURR into DESTL and 
DESTH. The above routines perform 
the actual delete. CTRL-D always dis- 
cards the previous contents of the 
buffer, for deleting text backward cre- 
ates a buffer of out-of-order text. Notice 
how we change the color of the com- 
mand window to red to warn the user 
of the impending deletion. 
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DELETE 


JSR 


KILLBUFF 




LDA 


#RED 




STA 


WINDCOLR 




JSR 


TOPCLR 




LDA 


# <DELMSG 




LDY 


# >DELMSG 




JSR 


PRMSG 




JSR 


GETAKEY 




PHA 






JSR 


SYSMSG 




PLA 






AND 


#95 




ORA 


#64 




CMP 


#'W 




BNE 


NOTWORD 


DELWORD 


JSR 


DELI 




JSR 


WLEFT 




JMP 


DEL2 


NOTWORD 


CMP 


#'S 




BNE 


NOTSENT 


DELSENT 


JSR 


DELI 




JSR 


SLEFT 




JMP 


DEL2 


NOTSENT 


CMP 


#'P 




BNE 


NOTPAR 




JSR 


DELI 




JSR 


PARLEFT 




JMP 


DEL2 


NOTPAR 


RTS 





Home the cursor. This is called by the 
START key. We check to see if START 
is held down for at least 1/2 second. If 
it is, we move the cursor to the top of 
text. 



HOME 


SEC 






LDA 


CURR 




SBC 


TOPLIN 




STA 


TEMP 




LDA 


CURR+1 




SBC 


TOPLIN + 1 




ORA 


TEMP 




BEQ 


TOPHOME 




LDA 


TOPLIN 




STA 


CURR 




LDA 


TOPLIN + 1 




STA 


CURR+1 


WAITST 


LDA 


#0 




STA 


20 




STA 


53279 


HOMEPAUSE 


LDA 


20 




CMP 


#30 




BNE 


HOMEPAUSE 


OUTHOME 


JMP 


CHECK 


TOPHOME 


LDA 


TEXSTART 




STA 


CURR 




LDA 


TEXSTART + 1 




STA 


CURR+1 




JMP 


WAITST 



EATSPACE 


LDA 


CURR 




STA 


TEX 




STA 


DESTL 




LDA 


CURR+1 




STA 


TEX + 1 




STA 


DESTH 




LDY 


#0 


SPCSRCH 


LDA 


(TEX),Y 




CMP 


#SPACE 




BNE 


OUTSPACE 




INY 






BNE 


SPCSRCH 




LDA 


TEX + 1 




CMP 


LASTLINE + 1 




BCC 


GOINC 




LDA 


LASTLINE 




STA 


TEX 




LDA 


LASTLINE + 1 




STA 


TEX + 1 




LDY 


#0 




JMP 


OUTSPACE 


GOINC 


INC 


TEX + 1 




JMP 


SPCSRCH 


OUTSPACE 


CLC 

TYA 






ADC 


TEX 




STA 


FROML 




LDA 


#0 




ADC 


TEX+1 




STA 


FROMH 




SEC 






LDA 


LASTLINE 




SBC 


DESTL 




STA 


LLEN 




LDA 


LASTLINE + 1 




SBC 


DESTH 




STA 


HLEN 




SEC 






LDA 


FROML 




SBC 


DESTL 




STA 


GOBLEN 




LDA 


FROMH 




SBC 


DESTH 




STA 


GOBLEN + 1 




JSR 


UMOVE 




SEC 






LDA 


LASTLINE 




SBC 


GOBLEN 




STA 


LASTLINE 




LDA 


LASTLINE + 1 




SBC 


GOBLEN + 1 




STA 


LASTLINE + 1 




RTS 





Insert 255 spaces. Notice how it and 
other insert routines use TAB2. 



This deletes all spaces between the 
cursor and following nonspace text. 
Sometimes inventing labels can be fun. 



LOTTASPACE 



TAB 



LDA #255 

STA INSLEN 

JMP TAB2 

LDA #5 

STA INSLEN 

JSR TAB2 

LDA (CURR),Y 
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2C63 



CMP 


#SPACE 


BNE 


NOINCY 


INY 




NOINCY JMP 


ADYCURR 


TAB2 LDA 


#0 


STA 


INSLEN + 1 


JSR 


INSBLOCK 


LDA 


#SPACE 


LDX 


INSLEN 


LDY 


#0 


FILLSP STA 


(CURR),Y 


INY 




DEX 




BNE 


FILLSP 


RTS 




Insert a single space. 




INSCHAR LDA 


#1 


STA 


INSLEN ' 


LDA 


#0 


STA 


INSLEN + 1 


JSR 


INSBLOCK 


LDA 


#SPACE 


LDY 


#0 


STA 


(CURR),Y 


JMP 


CHECK 


A general routine to insert as many 


spaces as are specified by INSLEN. 


INSBLOCK CLC 




LDA 


LASTLINE 


ADC 


INSLEN 


LDA 


LASTLINE + 1 


ADC 


INSLEN + 1 


CMP 


TEXEND + 1 


BCC 


OKINS 


PLA 




PLA 




JMP 


INOUT 


OKINS CLC 




LDA 


CURR 


STA 


FROML 


ADC 


INSLEN 


STA 


DESTL 


LDA 


CURR+1 


STA 


FROMH 


ADC 


INSLEN + 1 


STA 


DESTH 


SEC 




LDA 


LASTLINE 


SBC 


FROML 


STA 


LLEN 


LDA 


LASTLINE + 1 


SBC 


FROMH 


STA 


HLEN 


JSR 


DMOVE 


CLC 




LDA 


LASTLINE 


ADC 


INSLEN 


STA 


LASTLINE 


LDA 


LASTLINE + 1 


ADC 


INSLEN + 1 



INOUT 



STA LASTLINE + 1 
RTS 



Toggle insert mode. The INSMODE 
flag doubles as the color of the com- 
mand line. 

INSTGL LDA INSMODE 

EOR #BLUE 

STA INSMODE 
RTS 

Another example of modular code. This 
is called anytime a yes/no response is 
called for. It prints "Are you sure? 
(Y/N)," then returns with the zero flag 
set to true if Y was pressed, ready for 
the calling routine to use BEQ or BNE 
as a branch for yes or no. We trap out 
the clear-screen key in case this routine 
is called by Erase All, since otherwise 
repeating keys may instantly cancel the 
command. The AND #223 zaps out the 
distinction between uppercase and 
lowercase Y. 



LDA 


# <YMSG 


LDY 


# >YMSG 


JSR 


PRESG 


JSR 


GETIN 


AND 


#127 


BEQ 


YORNKEY 


CMP 


#125 


BEQ 


YORNKEY 


AND 


#223 


CMP 


#'Y 


RTS 





Erase all text. Allowed only if the OP- 
TION key is held down with 
SHIFT-CLEAR. It calls YORN to affirm 
the deadly deed, then calls ERASE to 
erase all text, INIT2 to reset some flags, 
then jumps back to the MAIN loop. 
LDX #$FA I TXS is used to clean up 
the stack. 



CLEAR 


LDA 


#8 




STA 


53279 




LDA 


53279 




CMP 


#3 




BEQ 


OKCLEAR 




RTS 




OKCLEAR 


LDA 


#RED 




STA 


WINDCOLR 




JSR 


TOPCLR 




LDA 


# <CLRMSG 




LDY 


# >CLRMSG 




JSR 


PRMSG 




JSR 


YORN 




BEQ 


DOIT 




JMP 


SYSMSG 
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DOIT 


LDX 

TXS 


#$FA 




JSR 


ERASE 




JSR 


INIT2 




JMP 


MAIN 


Paragraph right 






PARIGHT 


LDY 


#0 


PARLP 


LDA 


(CURR),Y 




CMP 


#RETCHAR 




BEQ 


RETFOUND 




INY 






BNE 


PARLP 




INC 


CURR+1 




LDA 


CURR+1 




CMP 


LASTLINE + 




BCC 


PARLP 




BEQ 


PARLP 




JMP 


LASTWORD 


RETFOUND 


INY 






BNE 


GOADY 




INC 


CURR+1 


GOADY 


JMP 


ADYCURR 



Paragraph left. Notice the trick of 
decrementing the high byte of the 
pointer, then starting the index at 255 
in order to search backward. 



PARLEFT 



PARLOOP 
PARCONT 



RETF2 



LDA 

STA 

LDA 

STA 

DEC 

LDY 

LDA 

CMP 

BEQ 

DEY 

CPY 

BNE 

DEC 

LDA 

CMP 

BCS 

JMP 

SEC 

TYA 

ADC 

STA 

LDA 

ADC 

STA 

SEC 

LDA 

SBC 

STA 

LDA 

SBC 

ORA 

BNE 

STY 

CLC 



CURR 

TEX 

CURR+1 

TEX + 1 

TEX + 1 

#$FF 

(TEX),Y 

#RETCHAR 

RETF2 

#255 

PARLOOP 
TEX + 1 
TEX + 1 
TEXSTART + 1 
PARLOOP 
FIRSTWORD 




LDA TEX 

SBC TEMP 

STA TEX 

LDA TEX+1 

SBC #0 

STA TEX + 1 

JMP PARCONT 

TEXTOCURR LDA TEX 

STA CURR 

LDA TEX+1 

STA CURR+1 

JMP CHECK 

This enables the display-list interrupt 
(DLI). The DLI allows separate back- 
ground colors for the command line 
and the rest of the screen. It lets us 
change the color of the top line to flag 
insert mode or to warn the user with a 
red color that he/she should be careful. 
Since it is an interrupt, it is always run- 
ning in the background. Interrupt 
routines must always be careful not to 
corrupt the main program. 

HIGHLIGHT turns off any DLIs (by 
storing #64 into $D40E), sets the NMI 
pointer ($200/$201), creates a custom 
display list of IRG mode 3 (lowercase 
descenders, GRAPHICS OVs) with DLI 
set in one line, then enables DLIs ($C0 
into $D40E) and returns. The routine 
DLI is now running constantly in the 
background, changing the screen color 
of all text below the DLI. .,:j=) 

HIGHLIGHT . LDA 

I F e r-, 

' DLX. 



TEX 
TEX 
#0 
TEX + 1 
TEX + 1 

TEX 

CURR 

TEMP 

TEX + 1 

CURR+1 

TEMP 

TEXTOCURR 

TEMP 



2 DCS DLOOP 



LDA 


#64 


11 '. 


STA 


$D40E 


1 


LDA 


# <DLI 


- 


STA 


$0200 - 




LDA 


# >DLI _ 


■ 


STA 


$0201 




LDA 


560 




STA 


TEMP 




LDA 


561 




STA 


TEMP + 1 




LDY 


#0 




LDA 


DLIST,Y 




STA 


(TEMP),Y 




INY 






CPY 


#28 




BNE 


DLOOP 




LDY 


#4 




LDA 


$58 




STA 


(TEMP),Y 




LDA 


$59 




INY 






STA 


(TEMP),Y 




LDY 


#26 




LDA 


TEMP 




STA 


(TEMP),Y 
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.0,0 



LDA TEMP+1 

INY 

STA (TEMP),Y 

LDA #$C0 

STA $D40E 

RTS 

The custom display list. J 

2.P££ DLIST .BYTE 112,112,lf2,3 + 64 + 128/ 
.BYTE 3,3,3,3,3,3,3,3,3,3,3,3,3 
.BYTE 3,3,3,3,3,16,65,0,0 

The display-list interrupt routine stores 
the SCReen COLor and TEXt COLoR 
into the appropriate hardware registers, 
then stores the WINDow COLoR into 
710, and #10 into 709 to set the color 
of the top line of the screen. This line is 
automatically set by the normal vertical- 
blank interrupt. We also force the 
character-set pointer to keep our 
character set in place whenever we're 
on the editing screen. 

DLI 



ERAS1 



ERASAGAIN 



I 



... " S- 



LDA 


SCRCOL 


STA 


$D40A 


STA 


$D018 


STA 


712 


LDA 


TEXCOLR 


STA 


$D017 


LDA 


WINDCOLR 


STA 


710 


LDA 


#10 


STA 


709 


LDA 


#$20 


STA 


756 


LDA 


#0 


STA 


$021)6 


PLA 




RTI 





ERAS is called by CTRL-E. It works 
much like CTRL-D. Notice that the 
ORA #64 allows users to press either S, 
W, P, or CTRL-S, CTRL-W, CTRL-P, in 
case they have a habit of leaving the 
control key held down. It must call RE- 
FRESH after each move and adjust the 
new position of the cursor. If OPTION 
is held down with CTRL-E, we don't 
erase the previous contents of the 
buffer, letting the user chain non- 
contiguous sections into the buffer for 
later recall. 



ERAS 



LDA #8 

STA 53279 

LDA 53279 

CMP #3 

BEQ ERAS1 

JSR KILLBUFF 



ERASWORD 

NOWORD 

ERASENT 

UNSENT 



NOPAR 

ERA1 



ERA2 



JSR 

LDA 

LDY 

JSR 

LDY 

LDA 

EOR 

STA 

JSR 

LDY 

LDA 

EOR 

STA 

LDA 

STA 

JSR 

AND 

ORA 

CMP 

BNE 

JSR 

JSR 

JMP 

CMP 

BNE 

JSR 

JSR 

JMP 

CMP 

BNE 

JSR 

JSR 

JMP 

JSR 

JMP 

LDA 

STA 

STA 

LDA 

STA 

SVA 

RTS 

SEC 

LDA 

STA 

SBC 

STA 

LDA 

STA 

SBC 

STA 

JSR 

LDA 

STA 

LDA 

STA 

JSR 

JMP 



TOPCLR 

# <ERASMSG 

# >ERASMSG 
PRMSG 

#0 

(CURR),Y 

#$80 

(CURR),Y 

REFRESH 

#0 

(CURR),Y 

#$80 f ■ ) 

(CURR-,Y 

#RED 

WINDCOLR 

GETAKEY 

#95 

#64 

#'W 

NOWORD 

ERA1 

WRIGHT 

ERA2 

#'S 

UNSENT 

ERA1 

SRIGHT 

ERA2 

#'P 

NOPAR 

ERA1 

PARIGHT 

ERA2 

CHECK 

SYSMSG 

CURR 

DESTL 

SAVCLJRR 

CURR + 1 

DESTH 

SAVCURR+1 



CURR 

FROML 

SAVCURR 

GOBLEN 

CURR + 1 

FROMH 

SAVCURR+1 

GOBLEN + 1 

DELC 

SAVCURR 

CURR 

SAVCURR+1 

CURR + 1 

REFRESH 

ERASAGAIN 



<jj^r> 



The INPUT routine is used to get re- 
sponses from the command line. It re- 
turns the complete line in INBUFF. 
INLEN is the length of the input. A 
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zero byte is stored at INBUFF + INLEN 
after the user presses RETURN. This 
routine is foolproof (I know...), since no 
control keys other than BACK S are al- 
lowed, unless preceded by ESCape. 
The SELECT key can be held down to 
enter inverse-video characters. The sys- 
tem cursor is turned on for this routine 
(by putting #0 into 752), then turned 
off when we exit (by putting #1 into 
752). This routine also prevents the 
user from typing past the end of the 
command line. If the limit of typing 
length must be set arbitrarily, LIMIT is 
preset and INPUT is called at INP1. 
CURSIN is the MAIN loop. 



SKIPSEL 



INEXIT 



LDX 


53279 


CPX 


#5 


BNE 


SKIPSEL 


ORA 


#128 


STA 


INBUFF,Y 


JSR 


CHROUT 


LDA 


#0 


STA 


ESCFLAG 


INY 




JMP 


CURSIN 


LDX 


#1 


STX 


752 


LDA 


#0 


STA 


INBUFF,Y 


TYA 




RTS 




.END 





INPUT 


LDA 


#39 




SBC 


35 




STA 


LIMIT 


INP1 


LDY 


#0 




STY 


INLEN 




STY 


752 




LDA 


#32 




JSR 


CHROUT 




LDA 


#126 




JSR 


CHROUT 


CURSIN 


STY 


INLEN 




JSR 


GETAKEY 




LDY 


INLEN 




BIT 


ESCFLAG 




BMI 


ESCKEY 




CMP 


#27 




BNE 


NOESC 




LDA 


#128 




STA 


ESCFLAG 




STA 


$02A2 




JMP 


CURSIN 


NOESC 


CMP 


#155 




BEQ 


INEXIT 




CMP 


#126 




BNE 


NOBACK 




DEY 






BPL 


NOTZERO 




INY 






JMP 


CURSIN 


NOTZERO 


LDA 


#126 




JSR 


CHROUT 




JMP 


CURSIN 


NOBACK 


STA 


TEMP 




AND 


#127 




CMP 


#32 




BCC 


CURSIN 




CMP 


#125 




BCS 


CURSIN 




CPY 


LIMIT 




BEQ 


CURSIN 




LDA 


TEMP 


ESCKEY 


AND 


#127 




LDX 


#8 




STX 


53279 



Filename DiSUPPORT. 

This module supports most primitive 
input/output functions, including a 
routine to clear the screen and reset the 
screen editor (OPENEDITOR), print a 
character (CHROUT), and get a key 
from the keyboard (GETAKEY). 



2p5"' OPENEDITOR 



LDX #0 

LDA #12 

STA ICCOM t 

JSR CIO 

LDX #0 

LDA # <ENAME 

STA ICBADR «»' 

LDA # >ENAME 

STA ICBADR + 1 

LDA #2 

STA ICBLEN 6 >- 

STX ICBLEN + 1 

LDA #3 

STA ICCOM,X 

JMP CIO 

Put the ATASCII value of the character 
into the accumulator and call CHROUT 
to print a character. The Y register is 
preserved. We call CIO with a buffer 
length of zero. 



*i 



„.., 



CHROUT 


STY 


CHRYSAVE 




i Idx 


#0 


# ' 


-STX 


ICBLEN 0: V 


STX 


ICBLEN + 1 




STX 


$02FF r- >■■--, C T i. 1 




LDY 


#11 pj- "WFfc 




STY 


ICCOM 




JSR 


CIO 




LDY 


CHRYSAVE 




RTS 





The filename of the Editor device. 
2F*)'-; ENAME .BYTE"E:" 



87 



SpeedScript 



2FCC- 



OUTNUM 
OVERZAP 



ONUMLOOP 



OUTNUM and PROUTNUM print 
decimal numbers to the display or 
printer. The integer to be printed is 
passed with the low byte in the X reg- 
ister and the high byte in the accu- 
mulator. The integer to floating-point 
routine ($D9AA) is called first, followed 
by floating-point to ATASCII routine, 
which creates a string of ATASCII dig- 
its. The last digit of the number has bit 
7 set, which we use to terminate 
printing. 

PROUTNUM LDY #128 

JMP OVERZAP 

LDY #0 

STY WHICHFLAG 

STX $D4 

STA $D5 

JSR $D9AA 

JSR $D8E6 

LDY #0 

LDA ($F3),Y 

PHA 

AND #$7F 

BIT WHICHFLAG 

BMI GOPCHR 

JSR CHROUT 

JMP OVERPCHR 

GOPCHR JSR PCHROUT 

OVERPCHR PLA 

BMI ONUMEXIT 

INY 

BNE ONUMLOOP 
ONUMEXIT RTS 
CHRYSAVE .BYTE 

The system keyboard fetch routine 
interferes with the display-list interrupt, 
since the blip of each key is timed with 
WSYNC, which freezes the ANTIC 
chip for one line. This causes annoying 
flicker. This routine uses POKEY sound 
decaying from volume 15 to for the 
keyboard feedback tone. It's not hard 
to create any sound effect you want for 
the keyboard blip. This routine mimics 
the system routine fairly closely. It's 
easy to expand it to allow many more 
keyboard functions and full processing 
of new keystrokes just by changing 
some of this code and the keyboard 
table. 



A 



GETIN 



GETCHAR 



: 


LDA 


764 yO^* 


; 


CMP 


#$FF . Ml , ,,. 


r 


3NE 


GETCHAR ^ ff 




LDA 


#0, ■-.,■■. i\ 




RTS 


/ 




LDA 


764 <& 




CMP 


#$F.F o i^l 



BEQ 

POO STA 
LDA 

FBZ, STA 


GETCHAR " 1 '' 
KEYVAL t 44-4&0 

#$FF i -■: -cqAi, 
764 


Clear break flag. 




STA 

: re ~> Jsr 

LDA 


$11 -' 

BLIP S^Ot*? 
KEYVAL /- 



Check for SHIFT + CTRL. 



'too 



CMP #$C0 

BCS GXIT 

AND #63. 

CMP #60 

BNE NOTCAPS 4> oor - 

LDA KEYV AL f i 

AND #64 

BEQ NOTSET 

STA SHFLOK- 



GXIT 



LDA #0 
RTS 



,e.<\ 



ftt-l 



tf-VV 



The CAPS/LOWR key toggles the 
SHiFtLOcK flag to allow either only 
uppercase, or both uppercase and 
lowercase. 



NOTSET 


LDA 


SHFLOK 




EOR 


#64 




STA 


SHFLOK 




LDA 


#0 




RTS 




NOTCAPS 


_LDX 

-* LDA 


KEYVAL- 


. ' /' 


KEYBOARDS 


1 1 1 


BIT 


SHFLOK 




BVC 


NOTLOCKED 




CMP 


#'a 




BCC 


NOTLOCKED 




CMP 


#'z + l 




BCS 


NOTLOCKED 




AND 


#223 


NOTLOCKED 


CMP 


#$80 




BEQ 


GXIT 




RTS 





The sound effect for the keyboard 
"blip." 



BLIP 


PHA 






LDA 


#50 




STA 


$D200 




LDX 


#$AF 


SNDLOOP 


STX 


$D201 




LDY 


#128 


SLOW 


DEY 






BNE 


SLOW 




DEX 






CPX 


#$9F 




BNE 
PLA 
RTS 


SNDLOOP 


KEYBOARC 


i .BYTE 


108,106,59,128,128,107 




.BYTE 


43,42,111,128,112,117 
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.BYTE 155,105,45,61,118,128 

.BYTE 99,128,128,98,120,122 

.BYTE 52,128,51,54,27,53 

.BYTE 50,49,44,32,46,110 

.BYTE 128,109,47,$80,114,128 

.BYTE 101,121,127,116,119,113 

.BYTE 57,128,48,55,126,56'- 

.BYTE 60,62,102,104,100,128 

.BYTE 130,103,115,97,76,74 ' 

.BYTE 58,128,128,75,92,94 

.BYTE 79,128,80,85,155,73 

.BYTE 95,124,86,128,67,128 

.BYTE 128,66,88,90,36,128 

.BYTE 35,38,27,37,34,33 

.BYTE 91,32,93,78,123,77 

.BYTE 63,$80,82,128,69,89 

.BYTE 159,84,87,81,40,128' 

.BYTE 41,39,156,64,125,157 

.BYTE 70,72,68,128,131,71 

.BYTE 83,65,12,10,123,128 

.BYTE 128,11,30,31,15,128' 

.BYTE 16,21,155,9,28,29 

.BYTE 22,128,3,128,128,2 

.BYTE 24,26,128,128,133,128 

.BYTE 27,128,253,128,0,32 

.BYTE 96,14,128,13,128,$80 

.BYTE 18,128,5,25,158,20 

.BYTE 23,17,128,128,128,128 

.BYTE 254,128,125,255,6,8 

.BYTE 4,128,132,7,19,1 
.END 

Filename D:DOSPAK 

DOSPAK is a self-contained substitute 
for the DOS menu, although it uses 
several routines built into SpeedScript. 
The concept of DOSPAK is that all 
directory entries should fit on one 
screen. A large cursor is used to move 
from filename to filename. At any time, 
you can delete, rename, lock, unlock, or 
load the selected filename, just by 
pressing one key, or a CTRL key 
combination. Except for Rename, you 
don't have to type the filename. You 
can also format the entire disk or 
redisplay the directory. 

CATALOG fits the entire disk 
directory onto the screen by skipping 
over the sector counts, trimming up 
spacing, and placing three items per 
line. The cursor position of each file- 
name is saved into a slot in memory so 
that the cursor routine can quickly and 
easily skip about. 

CATALOG JSR CLOSE7 

LDX #$70 

LDA # <DIRNAME 

STA ICBADR,X 





LDA 


# >DIRNAME 




STA 


ICBADR + LX 




LDA 


#5 




STA 


ICBLEN,X 




LDA 


#0 




STA 


ICBLEN + LX 




LDA 


#6 




STA 


ICAUX1,X 




LDA 


#3 




STA 


ICCOM,X 




JSR 


CIO 




BMI 


CLOSE7 




LDA 


#0 




STA 


XPTR 


REDIR 


LDX 


XPTR 




LDA 


$64 




STA 


SLOT,X 




LDA 


$65 




STA 


SLOT + l,X 




INC 


XPTR 




INC 


XXTR KPT<L.~>, 




JSR 


GET7 




BMI 


CLOSE7 




CMP 


#'* + l 




BCS 


ENDIR 




JSR 


CHROUT 




JSR 


GET7 




BMI 


CLOSE7 




LDA 


#0 




STA 


DIRCOUNT 


DIRLOOP 


JSR 


GET7 




BMI 


CLOSE7 


DNOTCR 


JSR 


CHROUT 




INC 


DIRCOUNT 




LDA 


DIRCOUNT 




CMP 


#8 




BNE 


DNOT8 




LDA 


#'. 




JSR 


CHROUT 




JMP 


DIRLOOP 


DNOT8 


CMP 


#11 




BNE 


DIRLOOP 




LDA 


#5 




STA 


TEMP 


THROWS 


JSR 


GET7 




DEC 


TEMP 




LDA 


TEMP 




BNE 


THROWS 




JMP 


REDIR 


CLOSE7 


LDX 


#$70 




LDA 


#12 




STA 


ICCOM,X 




JSR 


CIO 




LDX 


#$70 




LDY 


ICSTAT,X 




RTS 




ENDIR 


PHA 






LDA 


#155 




JSR 


CHROUT 




PLA 






JSR 


CHROUT 


ENDLP 


JSR 


GET7 




BMI 


CLOSE7 
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JSR CHROUT 

JMP ENDLP 

3 1 A 9 GET7 LDX #$70 

LDA #0 

STA ICBLEN,X 

STA ICBLEN + 1,X 

LDA #7 

STA ICCOM,X 

JMP CIO 

The main DOS routine calls the CAT- 
ALOG routine to fill the screen with 
filenames, then puts the cursor on the 
current filename, waiting for a 
keypress. 



DOS 


JSR 


DELITE 




JSR 


OPENEDITOR 




JSR 


DELITE 




LDA 


#1 




STA 


752 




STA 


82 




LDA 


#125 




JSR 


CHROUT 




JSR 


CATALOG 




JSR 


DOSMSG 


GETNAME 


LDA 


SLOT 




STA 


SCR 




LDA 


SLOT+1 




STA 


SCR + 1 




LDA 


#0 




STA 


XSLOT 




DEC 


XPTR 




DEC 


XXVR 


NAMELP 


JSR 


INVNAME 




JSR 


GETAKEY 




LDX 


#1 




STX 


752 



Now that we've got a keypress, we 
look it up in the keypress table, then 
vector to the appropriate routine. This 
is the same ML ON-GOTO routine that 
we've used in several places in Speed- 
Script, including the CONTROL 
routine. 



LDA DOSADR,X 

PHA 

RTS 

The braces surround control characters, 
some entered with the ESCape key: 
cursor-left, cursor-right, cursor-up, 
cursor-down, CTRL-D, ESCape, and 
CTRL-L. 



LDX 


DOSTABLE 


CMP 


#97 


BCC 


NOPROB 


AND 


#95 


STA 


TEMP 


CMP 


DOSTABLE,X 


BEQ 


FOUNDIT 


DEX 




BNE 


FINDIT 


JMP 


JNAME 


DEX 




TXA 




ASL 


A 


TAX 




LDA 


DOSADR + l,X 


PHA 





DOSTABLE 


.BYTE 


15 




.BYTE 


"{LEFT} {RIGHT}) 
UP}{DOWN}{D}R 

LUF1234{ESC}{L}" 


DOSADR 


.WORD 


DLEFT -1,DRIGH 
T-l,DUP-l,DDO 
WN-1,DELFILE- 
LRENAME-1 




.WORD 


LOCK-l,UNLOCK 
-l,FORMAT-l,D 
RIVE-1,DRIVE-1 
,DRIVE-1 




.WORD 


DRIVE -LESCDO 
S — l,LOADIT-l 


Move bar cursor left 


by decrementing 


slot pointer. 






DLEFT 


JSR 


INVNAME 




LDX 


XSLOT 




BEQ 


NRANGE 




DEX 






DEX 






JMP 


RESLOT 


Move bar cursor right by incrementing 


slot pointer. 






DRIGHT 


JSR 


INVNAME 




LDX 


XSLOT 




INX 






INX 






CPX 


XPTR 




BCS 


NRANGE 


Store new slot index. 




RESLOT 


STX 


XSLOT 




LDA 


SLOT,X 




STA 


SCR 




LDA 


SLOT + l,X 




STA 


SCR + 1 


NRANGE 


JMP 


NAMELP 



Move bar cursor up by subtracting 6 
from the slot pointer (each slot is two 
bytes). 



DUP 



JSR 


INVNAME 


LDA 


XSLOT 


CMP 


#6 


BCC 


NRANGE 


SEC 




SBC 


#6 


TAX 




JMP 


RESLOT 
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Move bar cursor down by adding 6 to 
the slot pointer. 



■ . ' DDOWN 



JSR 


INVNAME 


LDA 


XSLOT 


CLC 




ADC 


#6 


CMP 


XPTR 


BCS 


NRANGE 


TAX 




JMP 


RESLOT 



This routine turns a filename pointed to 
by the bar cursor into a legal CIO file- 
name, complete with Dx: and legal 
extension. 



NAMER 


LDX 


#0 


COPYD 


LDA 


DIRNAME,X 




STA 


FNBUFF,X 




INX 






CPX 


#3 




BNE 


COPYD 




LDY 


#1 


COPYNAME 


LDA 


(SCR),Y 




AND 


#127 




JSR 


INTOAS 




CMP 


#32 




BEQ 


NOSTOR 




STA 


FNBUFF,X 




INX 




NOSTOR 


INY 






CPY 


#13 




BNE 


COPYNAME 




LDA 


FNBUFF-1,X 




CMP 


#'. 




BNE 


NOTDOT 




DEX 




NOTDOT 


STX 


FNLEN 




LDA 


#0 




STA 


FNBUFF,X 




RTS 




This routine 


passes any CIO command 


along with a 


formed filename. 


XIO 


LDX 


#$70 




STA 


ICCOM,X 




LDA 


FNLEN 




STA 


ICBLEN,X 




LDA 


#0 




STA 


ICBLEN + 1,X 




LDA 


# <FNBUFF 




STA 


ICBADR,X 




LDA 


# >FNBUFF 




STA 


ICBADR + 1,X 




JMP 


CIO 



The DOS functions are quite short. 
NAMER builds the name; then we sim- 
ply pass the number of the DOS CIO 
function unto XIO. If there's no error, 
we return to waiting for the next key- 



stroke; otherwise, print the DOS error 
message and wait for a keystroke. 

DELFILE JSR NAMER 

LDA #33 

Jump to the XIO routine. 

GOXIO 



JNAME 

Lock a file. 
LOCK 

Unlock a file. 
UNLOCK 



JSR XIO 

BPL JNAME 

JMP DOSERR 

JSR INVNAME 

JMP NAMELP 



JSR NAMER 
LDA #35 
JMP GOXIO 



JSR NAMER 
LDA #36 
JMP GOXIO 



We ask for the new name of the file, 
build the rename string, then jump to 
the XIO routine. 



RENAME 


JSR 


BOTCLR 




LDA 


# <RENMSG 




LDY 


# >RENMSG 




JSR 


PRMSG 




LDA 


#64 




STA 


$02UE 




JSR 


INPUT 




LDA 


#0 




STA 


$02BE 




LDA 


INLEN 




BEQ 


NONAME 




JSR 


NAMER 




LDX 


#0 




LDY 


FNLEN 




LDA 


#', 




STA 


FNBUFF,Y 




INY 




COPYR 


LDA 


INBUFF,X 




STA 


FNBUFF,Y 




INY 






INX 






CPX 


INLEN 




BNE 


COPYR 




STY 


FNLEN 




LDA 


#0 




STA 


FNBUFF,Y 




JSR 


DOSMSG 




LDA 


#32 




JMP 


GOXIO 


NONAME 


JSR 


DOSMSG 




JMP 


JNAME 



Format routine. We use YORN to af- 
firm this operation, which erases an en- 
tire disk. BOTCLR clears the bottom 
line of the screen. 



91 



SpeedScript 



33> 



FORMAT 



JSR 

LDA 

LDY 

JSR 

JSR 

BNE 

JSR 

JSR 

LDA 

JMP 



BOTCLR 

# <FORMSG 

# >FORMSG 
PRMSG 
YORN 
NONAME 
DOSMSG 
NAMER 
#254 
GOXIO 



Select new drive number and redisplay 
directory. 

DRIVE LDA TEMP 

STA DIRNAME + 1 
JMP DOS 

The Load-from-directory routine opens 
the file, then jumps into the SpeedScript 
Load routine. 

LOADIT 



LDX 


#$70 


STX 


IOCB 


LDA 


#4 


STA 


ICAUX1,X 


LDA 


#0 


STA 


INDIR 


STA 


INDIR + 1 


JSR 


NAMER 


or OPEN file. 


LDA 


#3 


JSR 


XIO 


BMI 


DOSERR 


JSR 


ERASE 


JSR 


LOADLINK 



If the load ended with an error, we dis- 
play the error; otherwise, we exit the 
DOSPAK at ESCDOS. 

BMI DOSERR 

The ESCape DOS routine clears the 
stack, clears the screen, reenables the 
display-list interrupt, prints the "Speed- 
Script" message, then jumps back to 
the editing loop. 

ESCDOS 



BOTCLR LDA #22 

STA 84 

LDA #157 

JSR CHROUT 

JMP CHROUT 

This is the error routine for the 
DOSPAK. We print "ERROR #", then 
print the error number with OUTNUM, 
a bell character (actually sounds like an 
annoying buzzer, appropriate Pavlovian 
treatment), then "Press RETURN." We 
wait for a keystroke, then return to get- 
ting keys for the DOSPAK commands. 

DOSERR 



STY 


YSAVE 


JSR 


CLOSE7 


JSR 


BOTCLR 


LDA 


# <ERRMSG 


LDY 


# >ERRMSG 


JSR 


PRMSG 


LDX 


YSAVE 


LDA 


#0 


JSR 


OUTNUM 


LDA 


#253 


JSR 


CHROUT 


LDA 


# <DIRMSG 


LDY 


# >DIRMSG 


JSR 


PRMSG 


JSR 


GETAKEY 


JSR 


DOSMSG 


JMP 


JNAME 



Inverse the filename field of the cur- 
rently selected filename. Used to create 
the bar cursor. 

INVNAME LDY #12 

INVLP LDA (SCR),Y 

EOR #128 

STA (SCR),Y 

DEY 

BPL INVLP 

RTS 

DOSMSG erases the bottom line of the 
screen and prints the DOSPAK com- 
mand line, an abbreviated menu. 



LDX #$FA 


DOSMSG 


JSR BOTCLR 


TXS 




LDA # <DIRINS 


LDA #125 




LDY # >DIRINS 


JSR CHROUT 

tcd - TTTf III If ITT 




JSR PRMSG 
LDA DIRNAMEH 


JDK tllfcallLlUlll ' - 




JSR SYSMSG 




JMP CHROUT 


JMP MAIN 




.END 



BOTCLR erases the bottom two lines of 
the screen by positioning the cursor on 
the next-to-the-last line, then printing 
two INSERT LINE characters that push 
any text on these lines off the bottom 
of the screen. Nifty, eh? 



Filename D:SPEED.2 

This is the main input/output portion 
of SpeedScript, responsible for loading, 
saving, and all printing functions. 
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CAST and CINSTOAS (standing 


for Convert to ASCII and Convert IN- 


Ternal code to ASCII) translate the way 


SpeedScript stores text 


in memory (in- 


ternal screen codes) into ASCII so that 


disk files will be compatible with most 


other software. 


In addition, the return- 


mark is changed to character 155, and 


vice versa. This 


is why you can't load a 


machine language file into SpeedScript, 


edit it, then save it back as a runnable 


modification. All back 


-arrows are 


turned into carriage returns on output, 


and all carriage 


returns (155's) are 


turned into back-arrows (30's) on input. 


CAST 


LDA 


#0 




STA 


CONVFLAG 




JMP 


CAST1 


CINTOAS 


LDA 


#128 




STA 


CONVFLAG 


CAST1 


LDA 


TEXSTART 




STA 


TEX 




LDA 


TEXSTART + 1 




STA 


TEX + 1 




JMP 


CIN 


CASTOIN 


LDA 


#0 




STA 


CONVFLAG 




LDA 


CURR 




STA 


TEX 




LDA 


CURR+1 




STA 


TEX + 1 


CIN 


SEC 






LDA 


LASTLINE + 1 




SBC 


TEX + 1 




TAX 






INX 






LDY 


#0 


CVLOOP 


LDA 


(TEX),Y 




BIT 


CONVFLAG 




BMI 


COTHER 




CMP 


#155 




BNE 


NOTRTN 




LDA 


#RETCHAR 




JMP 


OVEROTHER 


NOTRTN 


JSR 


ASTOIN 




JMP 


OVEROTHER 


COTHER 


CMP 


#RETCHAR 




BNE 


NOTRC 




LDA 


#155 




JMP 


OVEROTHER 


NOTRC 


JSR 


INTOAS 


OVEROTHER 


STA 
INY 


(TEX),Y 




BNE 


CVLOOP 




INC 


TEX + 1 




DEX 






BNE 


CVLOOP 




RTS 





document area using the CIO block 
output routine (PUT TEXT). TOPEN is 
called by both TSAVE and TLOAD to 
get the filename and open the file. The 
device specification (D: or C:) must be 
typed in by the user. 

TSAVE prints the Save: prompt, goes to 
TOPEN with an 8 (for output, the same 
number in OPEN l,8,0,"D:file"), and 
uses IOCB #7 (LDX #$70) to send a 
PUT TEXT command (11). Text is writ- 
ten from the start-of-text with a length 
of LASTLINE- TEXSTART. 

TSAVE 



JSR 


TOPCLR 


LDA 


# <SAVMSG 


LDY 


# >SAVMSG 


JSR 


PRMSG 


LDA 


#8 


JSR 


TOPEN 


BMI 


ERROR 


JSR 


CINTOAS 


LDX 


#$70 


LDA 


TEXSTART 


STA 


ICBADRX 


LDA 


TEXSTART +1 


STA 


ICBADR + 1,X 


SEC 




LDA 


LASTLINE 


SBC 


TEXSTART 


STA 


ICBLEN,X 


LDA 


LASTLINE + 1 


SBC 


TEXSTART + 1 


STA 


ICBLEN + LX 


LDA 


#11 


STA 


ICCOM,X 


JSR 


CIO 



Here is where most of the input/output 
routines start. TSAVE saves the entire 



The N (negative) bit is set when an er- 
ror occurs after a call to CIO or a rou- 
tine that ends up calling CIO. 
Therefore, we can use BMI to branch 
on an error condition. 

BMI ERR1 
JSR CAST 
JSR CLOSE7 
BMI ERROR 
JMP FINE 
ERR1 TYA 

PHA 

JSR CAST 
PLA 
TAY 

The error routine uses the error number 
found in the Y register, prints the error 
message with PRMSG, and the error 
number with OUTNUM. The open file 
is closed. If the BREAK key was used to 
stop the operation, we distinguish this 
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from an ordinary error, and print 
"BREAK Abort" instead. 



ERROR 



ERXIT 



STOPPED 



CPY 

BEQ 

TYA 

PHA 

LDA 

JSR 

LDA 

LDY 

JSR 

PLA 

TAX 

LDA 

JSR 

JSR 



#128 
STOPPED 



#125 
CHROUT 

# <ERRMSG 

# >ERRMSG 
PRMSG 



#0 

OUTNUM 

IOCLOSE 

-JSR HIGHLIGHT 

LDA #1 

STA MSGFLG 

RTS 

JSR 

LDA 

LDY 

JSR 

JMP 



TOPCLR 

# <BRMSG 

# >BRMSG 
PRMSG 
ERXIT 



General file closing routine. IOCB con- 
tains the channel number times 16. 

IOCLOSE LDX IOCB 

LDA #12 

STA ICCOM,X 

JMP CIO 

TOPEN is used to get a filename, 
including the device specification. It's 
used by Save, Load, and Print. It forces 
the CAPS key to uppercase for the file- 
name, which is not quite as satisfactory 
as converting the filename if lowercase 
was used. It does return the CAPS key 
to its former value, though. TOPEN 
opens the file and returns with the er- 
ror code in the Y register. 



TOPEN 



LDX #$70 

STX IOCB 

STA ACCESS 

Save current CAPS value. 

LDA SHFLOK 
PHA 

CAPS On. 

LDA #64 

STA SHFLOK 

JSR INPUT 

Restore CAPS value. 

PLA 

STA SHFLOK 

LDA INLEN 

BNE OPCONT 



OPABORT 


JSR 
PLA 
PLA 


SYSMSG 




-jmp — HieHHereF- 


OPCONT 


JSR 


IOCLOSE 




LDX 


IOCB 




LDA 


# <INBUFF 




STA 


ICBADR,X 




LDA 


# >INBUFF 




STA 


ICBADR + 1,X 




LDA 


INLEN 




STA 


ICBLEN,X 




LDA 


#0 




STA 


ICBLEN+1,X 




LDA 


ACCESS 




STA 


ICAUX1,X 




LDA 


#3 




STA 


ICCOM,X 




JMP 


CIO 



The Load routine checks the cursor po- 
sition. If the cursor is at the top-of-text 
(CURR=TEXSTART), we call the 
ERASE routine to wipe out memory 
before the load. Otherwise, the load 
starts at the cursor position, performing 
an append, and we change the com- 
mand line to green ($C4, sorry about 
not using a label) to warn the user. We 
open the file for reading by passing a 4 
to TOPEN, then at LOADLINK use 
GET TEXT (command 7) to get no 
more than the length of the text area. 
The actual length loaded is found in 
ICBLEN, so we add this to TEXSTART 
and the offset between the cursor po- 
sition and TEXSTART to get the po- 
sition of the end-of-text (LASTLINE). 
A funny thing happens, though. 
Up to 255 garbage characters appear 
following an otherwise normal load, 
after the end-of-text. I was never able 
to figure out why (and I puzzled over it 
for a week), so I wrote a stopgap rou- 
tine to just clear out one page past the 
end-of-text. The bug is not fixed per se, 
but it has no effect anymore! I still 
think it must be the fault of the operat- 
ing system (I know...). 



TLOAD 



SEC 

LDA CURR 

SBC TEXSTART 

STA TEX 

STA INDIR 

LDA CURR+1 

SBC TEXSTART -i 

STA TEX + 1 

STA INDIR + 1 

ORA TEX 
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BEQ 


LOAD2 




LDA 


#$C4 




STA 


WINDCOLR 


LOAD2 


JSR 


TOPCLR 




LDA 


# <LOADMSG 




LDY 


# >LOADMSG 




JSR 


PRMSG 




LDA 


#4 




JSR 


TOPEN 




BPL 


OKLOD 


GOERROR 


JMP 


ERROR 


OKLOD 


LDA 


WINDCOLR 




CMP 


#$C4 




BEQ 


NOER 




JSR 


ERASE 


NOER 


JSR 


LOADLINK 




CPY 


#128 




BCC 


JFINE 




JMP 


ERROR 


JFINE 


JMP 


FINE 


Entry point 


for linked files loading. 


LOADLINK 


LDX 


IOCB 




LDA 


CURR 




STA 


ICBADR,X 




LDA 


CURR+1 




STA 


ICBADR + 1,X 




SEC 






LDA 


TEXEND 




SBC 


CURR 




STA 


ICBLEN,X 




LDA 


TEXEND + 1 




SBC 


CURR+1 




STA 


ICBLEN + 1,X 




LDA 


#7 




STA 


ICCOM,X 




JSR 


CIO 




BPL 


TEXOK 




CPY 


#136 




BEQ 


TEXOK 




RTS 




TEXOK 


LDX 

CLC 


IOCB 




LDA 


ICBLEN,X 




ADC 


TEXSTART 




STA 


LASTLINE 




LDA 


ICBLEN + LX 




ADC 


TEXSTART + 1 




STA 


LASTLINE + 1 




CLC 






LDA 


LASTLINE 




ADC 


INDIR 




STA 


LASTLINE 




LDA 


LASTLINE + 1 




ADC 


INDIR + 1 




STA 


LASTLINE + 1 




JSR 


CASTOIN 




LDA 


LASTLINE 




STA 


TEX 




LDA 


LASTLINE + 1 




STA 


TEX + 1 




LDA 


#0 




TAY 





NOGARBAGE 



STA (TEX),Y 

INY 

BNE NOGARBAGE 

RTS 

FINE JSR IOCLOSE 

BPL PROKMSG 

JMP ERROR 

PROKMSG LDA #125 

JSR CHROUT 

LDA # <OKMSG 

LDY # >OKMSG 

JSR PRMSG 

JMP ERXIT 

Disable display-list interrupt and re- 
store screen colors, 

DELITE LDA #$40 

STA $D40E 

LDA SCRCOL 

STA 710 

STA 712 

LDA TEXCOLR 

STA 709 
RTS 

A rather short routine that converts a 
string of ASCII digits into a number in 
hex and the accumulator. It takes 
advantage of decimal mode. In decimal 
mode, the accumulator is adjusted after 
additions and subtractions so that it 
acts like a two-digit decimal counter. 
We shift BCD over a nybble and add in 
the left nybble of the ASCII number 
until we reach the end of the ASCII 
number. We then subtract 1 from BCD 
and increment X (which doesn't con- 
form to decimal mode) until BCD is 
down to 0. The X register magically 
holds the converted number. Naturally, 
decimal mode is cleared before this 
routine exits, or it would wreak major 
havoc. ASCHEX is used to convert the 
parameters of printer commands like 
left margin. 

ASCHEX 



DIGIT 



LDX 


#0 


STX 


BCD 


STX 


BCD + 1 


STX 


HEX 


STX 


HEX + 1 


SEC 




LDA 


(TEX),Y 


SBC 


#16 


BCC 


NONUM 


CMP 


#10 


BCS 


NONUM 


ASL 


BCD 


ROL 


BCD + 1 


ASL 


BCD 


ROL 


BCD + 1 
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ASL 


BCD 


ROL 


BCD + 1 


ASL 


BCD 


ROL 


BCD + 1 


ORA 


BCD 


STA 


BCD 


INY 




BNE 


DIGIT 


INC 


TEX + 1 


JMP 


DIGIT 


SED 




LDA 


BCD 


ORA 


BCD + 1 


BEQ 


DONENUM 


SEC 




LDA 


BCD 


SBC 


#1 


STA 


BCD 


LDA 


BCD + 1 


SBC 


#0 


STA 


BCD + 1 


INC 


HEX 


BNE 


NOHEXINC 


INC 


HEX + 1 


JMP 


DECHEX 


LDA 


HEX 


CLD 




RTS 





OKMOV 



Insert the buffer. This is the recall rou- 
tine called by CTRL-R. It must not 
allow an insertion that would overfill 
memory. It calls DMOVE to open a 
space in memory, then UMOVE (which 
is a little faster than DMOVE) to copy 
the buffer to the empty space. 



LDA 


LASTLINE 


SBC 


FROML 


STA 


LLEN 


LDA 


LASTLINE + 1 


SBC 


FROMH 


STA 


HLEN 


CLC 




ADC 


DESTH 


CMP 


TEXEND + 1 


BCC 


OKMOV 


JSR 


TOPCLR 


LDA 


# <INSERR 


LDY 


# >INSERR 


JSR 


PRMSG 


LDA 


#1 


STA 


MSGFLG 


RTS 




JSR 


DMOVE 


CLC 




LDA 


BUFLEN 


STA 


LLEN 


ADC 


LASTLINE 


STA 


LASTLINE 


LDA 


BUFLEN + 1 


STA 


HLEN 


ADC 


LASTLINE + 1 


STA 


LASTLINE + 1 


LDA 


CURR 


STA 


DESTL 


LDA 


CURR + 1 


STA 


DESTH 


LDA 


TEXBUF 


STA 


FROML 


LDA 


TEXBUF + 1 


STA 


FROMH 


JSR 


UMOVE 


JMP 


CHECK 



INSBUFFER 


SEC 






LDA 


TPTR 




SBC 


TEXBUF 




STA 


BUFLEN 




LDA 


TPTR + 1 




SBC 


TEXBUF +1 




STA 


BUFLEN + 1 




ORA 


BUFLEN 




BNE 


OKBUFF 




JSR 


TOPCLR 




LDA 


# <INSMSG 




LDY 


# >INSMSG 




JSR 


PRMSG 




LDA 


#1 




STA 


MSGFLG 




RTS 




OKBUFF 


CLC 






LDA 


CURR 




STA 


FROML 




ADC 


BUFLEN 




STA 


DESTL 




LDA 


CURR+1 




STA 


FROMH 




ADC 


BUFLEN + 1 




STA 


DESTH 




SEC 





Exchange the character highlighted by 
the cursor with the character to the 
right of it. Not a vital command, but it 
was included due to the brevity of the 
code. 

SWITCH LDY #0 

LDA (CURRLY 

TAX 

INY 

LDA (CURR),Y 

DEY 

STA (CURR),Y 

INY 

TXA 

STA (CURR),Y 

RTS 

Change the case of the character high- 
lighted by the cursor. 

ALPHA 



LDY #0 

LDA (CURRLY 

AND #63 

CMP #33 

BCC NOTALPHA 
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CMP 


#59 




SEC 






BCS 


NOTALPHA 




LDA 


PAGENUM 




LDA 


(CURR),Y 




SBC 


STARTNUM 




EOR 


#64 




LDA 


PAGENUM + 1 




STA 


(CURR),Y 




SBC 


STARTNUM + 1 


NOTALPHA 


JMP 


RIGHT 




BCC 


SKIPOUT 


Convert internal (screen code) format to 




LDA 
STA 


#1 
766 


Atari ASCII (ATASCII). Used to con- 




LDX 


#$70 


vert the screen-code format of Speed- 




LDA 


#0 


Script documents to ASCII for the sake 




STA 


ICBLEN,X 


of printing. 








STA 
LDA 


ICBLEN + LX 

#11 


INTOAS 


PHA 






STA 


ICCOM,X 




AND 


#128 




LDA 


PCR 




STA 


TEMP 




JSR 


CIO 




PL A 






PHP 






AND 


#127 




LDA 


#0 




CMP 


#96 




STA 


766 




BCS 


XINT 




PLP 




INCONT 


CMP 


#64 




BPL 


SHIFTFREEZE 




BCC 


INT1 


ERRLINK 


JSR 


ERROR 




SBC 


#64 




LDX 


#$FA 




JMP 


XINT 




TXS 




INT1 


ADC 


#32 




JMP 


MAIN 


XINT 


ORA 


TEMP 


SHIFTFREEZE LDA 


$02FF ;CTRL-1 




RTS 






BNE 


SHIFTFREEZE 


The start of the printer routines. This 


SKIPOUT 


PLA 




part could logically be called a separate 




TAY 
PLA 
TAX 




program, but many variables are com- 






mon to the above code. 




LDA 


PCR 










RTS 




DEFTAB: Tabl . 








left margin, 


right margin, page length, 


Displays ' 


'Printing..." 




top margin, 


bottom margin, etc. See the 


PRIN 


JSR 


TOPCLR 


table starting at LMARGIN at the end 




LDA 


# <PRINMSG 


of this source code. 






LDY 


# >PRINMSG 










JMP 


PRMSG 


DEFTAB 


.BYTE 5,75,66,5,58,1,1,1,0, 


PBORT 


JMP 


PEXIT 



1,0,80 

Table of default printer codes. 

PRCODES .BYTE 27,14,15,18 

Another advantage of modular coding 
is that you can change the behavior of 
a lot of code by just changing one 
small common routine. This is a sub- 
stitute for the normal CHROUT rou- 
tine. It checks to see if the current page 
number equals the page number speci- 
fied by the user to start printing. It also 
checks for the BREAK to abort the 
printing and permits printing to be 
paused with CTRL-1. 

PCHROUT STA PCR 

TXA 
PHA 
TYA 
PHA 



Called by CTRL-P. We get the filename 
to print to (usually P:, although you 
can use E: to print to the screen) with 
ICAUX1 set to 8 for output. We exit on 
any error. The DELITE routine turns off 
the display-list interrupt, which might 
otherwise interfere with output timing. 

PRINT JSR TOPCLR 

LDA # <FNMSG 

LDY # >FNMSG 

JSR PRMSG 

JSR DELITE 

LDA #8 

JSR TOPEN 

BPL PROK 

JMP PEXIT 

Reset several flags (footer length, 
header length, true ASCII, underline 
mode, and linefeed mode). Notice how 
DELITE is called again. This isn't a 
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mistake. The first time we called 
DELITE, we then may have opened a 
file to the Editor device. This reset the 
screen to the default colors, so the sec- 
ond DELITE retains the user's true 
color choice. 

PROK JSR DELITE 

JSR PRIN 

LDX #0 

STX FTLEN 

STX HDLEN 

STX NEEDASC 

STX UNDERLINE 

STX LINEFEED 

Copy definition tables and default 
printer codes. 

COPYDEF LDA DEFTAB,X 

STA LMARGIN,X 

INX 

CPX 

BNE 

LDA 

STA 

STA 

LDX 



#12 

COPYDEF 
#$FF 
LINE 

NOMARG 
#4 
COPYDEFS LDA PRCODES-l,X 

STA CODEBUFFER + 16,X 



DEX 
BNE 



COPYDEFS 



Reentry point for printing after linked 
files. 

RETEX LDA TEXSTART 

STA TEX 

LDA TEXSTART + 1 

STA TEX + 1 

Main printing loop. We print the left 
margin, grab a line of text, scan back- 
ward until we find a space or a carriage 
return, then break the line there. If 
printer codes are encountered, they're 
passed on to the SPECIAL routine. 
Otherwise, we end up calling BUFPRT 
to print the line and process some other 
control codes. 

PLOOP 



PLOOP1 

NOTSP 
NOTRET 



STY 


POS 


CPY 


NOMARG 


BEQ 


PLOOP1 


LDA 


LMARGIN 


STA 


POS 


LDA 


(TEX),Y 


BPL 


NOTSP 


JMP 


SPECIAL 


CMP 


#RETCHAR 


BEQ 


FOUNDSPACE 


STA 


PRBUFF,Y 


INY 







INC 


POS 




LDA 


POS 




CMP 


RMARGIN 




BCC 


PLOOP1 




STY 


FINPOS 


FINDSPACE 


LDA 


(TEX),Y 




CMP 


#SPACE 




BEQ 


FOUNDSPACE 




DEC 


POS 




DEY 






BNE 


FINDSPACE 




LDY 


FINPOS 


FSPACE 


INY 






LDA 


(TEX),Y 




CMP 


#SPACE 




BEQ 


FOUNDSPACE 




DEY 




FOUNDSPACE 


STY 


FINPOS 


OVERSTOR 


TYA 
SEC 






ADC 


TEX 




SVA 


TEX 




LDA 


TEX + 1 




ADC 


#0 




STA 


TEX + 1 




LDY 


#0 



If this is the first page, we need to print 
the header, if any, with JSR TOP. 



DOBUFF 


LDA 


LINE 




CMP 


#$FF 




BNE 


DOBUF2 




JSR 


TOP 


DOBUF2 


LDA 


NOMARG 




BEQ 


OVERMARG 




JSR 


LMARG 


OVERMARG 


SEC 






ROL 


NOMARG 




LDA 


FINPOS 




STA 


ENDPOS 




LDA 


# <PZBUFF 




STA 


INDIR 




LDA 


# >PRBUFF 




STA 


INDIR + 1 




JSR 


BUFPRT 



A line has been printed. We check to 
see if we've hit the bottom margin and, 
if so, go to PAGE, which goes to the 
end of the page, prints the footer (if 
any), and feeds to the next page. 



ZBUFF 



JSR 

LDA 

CMP 

BCC 

JSR 



CRLF 

LINE 

BOTMARG 

NOTPAGE 

PAGE 



Have we reached the end-of-text? 



NOTPAGE 



SEC 

LDA TEX 

SBC LASTLINE 
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STA TEMP 
LDA TEX+1 
SBC LASTLINE + 1 
ORA TEMP 
BEQ DORPT 
BCC DORPT 

If so, we check for a footer. If there is 
one, we set HDLEN and TOPMARG to 
(so that the printhead will end up at 
the right place on the last page) and 
call PAGE, which prints the footer. If 
there is no footer, we leave the print- 
head on the same page so that paper 
isn't wasted. 

LDA FTLEN 

BEQ PXIT 

LDA #0 

STA HDLEN 

STA TOPMARG 

JSR PAGE 

Exit routines. If screen output was se- 
lected, we wait for a keystroke before 
going back to editing mode. 



PXIT 



PEXIT 



LDA 
CMP 
BNE 
LDA 
JSR 
LDA 
LDY 
JSR 
JSR 
JSR 
LDX 
TXS 
-JSR- 



INBUFF 

#'E 

PEXIT 

#155 

CHROUT 

# <DIRMSG 

# >DIRMSG 
PRMSG 
GETAKEY 
CLOSE7 
#$FA 

HIGHLIGHT 



DORPT 



LDA 
JSR 
JSR 
JMP 

JMP 



#125 

CHROUT 

SYSMSG 

MAIN 

PLOOP 



Paging routines. We skip (PAGE- 
LENGTH -LINE) - two blank lines to 
get to the bottom of the page, print a 
footer (if there is one) or a blank line (if 
not), then page to the beginning of the 
next page, skipping over the paper 
perforation. If the wait mode is en- 
abled, we wait for the user to insert a 
new sheet of paper. 

PAGE 



SEC 




LDA 


PAGELENGTH 


SBC 


LINE 


TAY 




DEY 




DEY 




BEQ 


NOSK 



BMI 


NOSK 


JSR 


CR 


DEY 




BNE 


NEXPAGE 


LDA 


FTLEN 


BEQ 


SKIPFT 


STA 


ENDPOS 


LDA 


# <FTBUFF 


STA 


INDIR 


LDA 


# >FTBUFF 


STA 


INDIR + 1 


JSR 


LMARG 


JSR 


BUFPRT 


JSR 


CR 


JSR 


CR 


JSR 


CR 



Increment the page number. 

INC PAGENUM 

BNE NOIPN 

INC PAGENUM + 1 

The page wait mode is inappropriate 
when printing to the screen or to disk, 
or when skipping over pages with the ? 
format command. 



NOIPN 



LDA 

BNE 

SEC 

LDA 

SBC 

LDA 

SBC 

BCC 

JSR 

LDA 

LDY 

JSR 

JSR 

JSR 



CONTINUOUS 
TOP 

PAGENUM 
STARTOUM 
PAGENUM + 1 
STARTNUM + 1 
TOP 
TOPCLR 

# <WAITMSG 

# >WAITMSG 
PRMSG 
GETAKEY 
PRIN 



Print the header; skip to the top 
margin. 



TOP LDA 

BEQ 
STA 
LDA 
STA 
LDA 
STA 
JSR 
JSR 

NOHEADER LDY 

STY 
DEY 
BEQ 
BMI 

TOPLP JSR 

DEY 
BNE 

SKIPTOP RTS 



HDLEN • 

NOHEADER 

ENDPOS 

# <HDBUFF 
INDIR 

# >HDBUFF 
INDIR + 1 
LMARG 
BUFPZV 
TOPMARG 
LINE 

SKIPJW^P 
SKIPTOP 
CR 

TOPLP 
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Left margin routine. This routine is not 
called if NOMARG is selected (margin 
release). 



LMARG 



2>^~>F LMLOOP 



LMEXIT 



LDA 


#32 


LDY 


LMARGIN 


STY 


POS 


BEQ 


LMEXIT 


JSR 


PCHROUT 


DEY 




BNE 


LMLOOP 


RTS 





CRLF is called at the end of most 
printed lines. It increments the LINE 
count and takes into account the cur- 
rent line spacing mode set by the s for- 
mat command. 



CRLF 



CRLOOP 



LDY SPACING 

CLC 

TYA 

ADC LINE 

STA LINE 

JSR CR 

DEY 

BNE CRLOOP 

RTS 



CR just prints a single carriage return 
and linefeed (if specified). 



CR 



NOLF 



LDA 

#155 

JSR PCHROUT 

LDA LINEFEED 

BEQ NOLF 

JSR PCHROUT 

RTS 



Handle special printer codes like left 
margin. This looks up the printer code 
using a routine similar to CONTROL. 



SPECIAL 


STA 


SAVCHAR 




AND 


#127 




JSR 


INTOAS 




LDX 


SPTAB 


SRCHSP 


CMP 


SPTAB,X 




BEQ 


FSP 




DEX 






BNE 


SRCHSP 




DEC 


POS 




JMP 


DEFINE 


FSP 


DEX 

TXA 






3 ASL 
TAX 


A 




STY 


YSAVE 




LDA 


# >SPCONT-l 




PHA 






LDA 


# <SPCONT-l 




PHA 






LDA 


SPVECT + 1,X 




PHA 





LDA SPVECT,X 

PHA 

RTS 

After the format code is processed, we 
must skip over the format command 
and its parameter so that it's not 
printed. 

SPCONT SEC 

LDA YSAVE 
ADC TEX 
STA TEX 
LDA TEX+1 
ADC #0 
STA TEX + 1 
JMP PLOOP 

If the format command ends with a re- 
turn-mark, we must skip over the re- 
turn-mark as well. 



SPCEXIT 



NOAD 



LDA (TEX),Y 

CMP #RETCHAR 

BEQ NOAD 

DEY 

STY YSAVE 

RTS 



Special format code table. It starts with 
the number of format commands, then 
the characters for each format 
command. 



SPTAB 



.BYTE 
.BYTE 



17 



"wlrtbsnhf@p?xmigj" 

The address — 1 of each format routine. 

SPVECT .WORD PW-1,LM-1,RM-1,T 

P-l 
.WORD BT — 1,SP-1,NX — 1,HD 

— 1,FT — 1 
.WORD PN-1,PL-1,SPAGE-1 

,ACROSS-l 
.WORD MRELEASE-l,COMME 

NT-1,LINK-1 
.WORD LFSET-1 

m Margin release. INY is used to skip 
over the format character. 

MRELEASE INY 

LDA #0 

STA NOMARG 

JMP SPCEXIT 

x Columns across, used by centering. 

ACROSS INY 

JSR ASCHEX 

STA PAGEWIDTH 

JMP SPCEXIT 

? Start printing at specified page. 

SPAGE INY 

JSR ASCHEX 
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STA STARTNUM 

LDA HEX+1 

STA STARTNUM + 1 

JMP SPCEXIT 

@ Set starting default page number. 

PN INY 

JSR ASCHEX 

STA PAGENUM 

LDA HEX+1 

STA PAGENUM + 1 





JMP 


SPCEXIT 


p Page length. 






PL 


INY 






JSR 


ASCHEX 




STA 


PAGELENGTH 




JMP 


SPCEXIT 


w Set page wait mode. 


PW 


LDA / 

#0 y 




STA 


CONTINUOUS 




INY 






JMP 


SPCEXIT 


j Set linefeed mode. 




LFSET 


LDA 


#10 




STA 


LINEFEED 




INY 






JMP 


SPCEXIT 


1 Left margin. 






LM 


INY 






JSR 


ASCHEX 




STA 


LMARGIN 




JMP 


SPCEXIT 


r Right margin. 






RM 


INY 






JSR 


ASCHEX 




STA 


RMARGIN 




JMP 


SPCEXIT 


t Top margin. 






TP 


INY 






JSR 


ASCHEX 




STA 


TOPMARG 




JMP 


SPCEXIT 


b Bottom margin. 




BT 


INY 






JSR 


ASCHEX 




STA 


BOTMARG 




JMP 


SPCEXIT 


s Set line spacing. 




SP 


INY 






JSR 


ASCHEX 




STA 


SPACING 




JMP 


SPCEXIT 



n Jump to next page. 

NX LDY YSAVE 

INY 
TYA 
PHA 

JSR PAGE 
PLA 
TAY 

STY YSAVE 
RTS 

h Define header. Copy header into 
header buffer. 



HD 


JSR 
DEY 


PASTRET 




STY 


HDLEN 




LDY 


#1 


HDCOPY 


LDA 


(TEX),Y 




STA 


HDBUFF-1,Y 




INY 






CPY 


HDLEN 




BCC 


HDCOPY 




BEQ 


HDCOPY 




INY 






JMP 


SPCEXIT 


Skip just past the return-mark. 


PASTRET 


INY 






LDA 


(TEX),Y 




CMP 


#RETCHAR 




BNE 


PASTRET 




RTS 




f Define footer. 






FT 


JSR 
DEY 


PASTRET 




STY 


FTLEN 




LDY 


#1 


FTCOPY 


LDA 


(TEX),Y 




STA 


FTBUFF — 1,Y 




INY 






CPY 


FTLEN 




BCC 


FTCOPY 




BEQ 


FTCOPY 




JMP 


SPCEXIT 


i Ignore a line of information. 


COMMENT 


JSR 


PASTRET 




JMP 


SPCEXIT 



Define programmable printkeys. We 
check for = . If not found, this is not an 
assignment, so we just skip past the 
code. Otherwise, we use the screen 
code value as the index into the 
CODEBUFFER and put the value there, 
ready to be called during printing by 
BUFPRT. 



DEFINE 



INY 

LDA (TEX),Y 
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2&D4- DODEFINE 



CMP 


#'=-32 


BEQ 


DODEFINE 


DEY 




LDA 


SAVCHAR 


JMP 


NOTRET 


INY 




JSR 


ASCHEX 


PHA 




LDA 


SAVCHAR 


AND 


#127 


TAX 




PLA 




STA 


CODEBUFFER,X 


JSR 


SPCEXIT 


JMP 


SPCONT 



g Link to next file. We get the filename 
from text and put it into the input 
buffer, just as if the filename were 
typed in with INPUT. We then jump 
into the TOPEN routine to open the 
file, and into the Load routine to load 
the file. After the load, we check for a 
load error, then jump to RETEX to con- 
tinue printing. 

LINK 



FNCOPY 



FNEND 



LNOERR 



LDY 


#1 


LDX 


#0 


LDA 


(TEX),Y 


CMP 


#RETCHAR 


BEQ 


FNEND 


JSR 


INTOAS 


STA 


INBUFF,X 


INY 




INX 




CPX 


#14 


BNE 


FNCOPY 


STX 


INLEN 


LDA 


#0 


STA 


INBUFF,X 


LDX 


#$60 


STX 


IOCB 


LDA 


#4 


STA 


ACCESS 


JSR 


OPCONT 


BPL 


LNOERR 


JMP 


ERRLINK 


LDA 


#0 


STA 


INDIR 


STA 


INDIR + 1 


JSR 


ERASE 


JSR 


LOADLINK 


BPL 


LCONT 


JMP 


ERRLINK 


PLA 




PLA 




LDX 


#$70 


STA 


IOCB 


JMP 


RETEX 



LCONT 



Global search and replace. This just 
links together the search-specify rou- 
tine, the replace-specify routine, then 



repeatedly calls Hunt and Replace, until 
Hunt returns "Not Found." (FPOS + 1 
is $FF after a search failure.) 

SANDR 



SNR 



JSR 


RESET 


LDA 


HUNTLEN 


BEQ 


NOSR 


JSR 


ASKREP 


JSR 


CONTSRCH 


LDA 


FPOS + 1 


CMP 


#$FF 


BEQ 


NOSR 


JSR 


REPL 


JSR 


REFRESH 


JMP 


SNR 


JMP 


SYSMSG 



NOSR 

If OPTION is held down with CTRL-F, 
we ask for and store the search phrase. 
If OPTION is not down, we perform 
the actual search. The line in the 
INBUFF is compared with characters in 
text. If at any point the search fails, we 
continue the comparison with the first 
character of INBUFF. The search is a 
failure if we reach the end-of-text. If 
the entire length of INBUFF matches, 
the search succeeds, so we change the 
CURRent cursor position to the found 
position, save the found position for 
the sake of the replace routine, then 
call CHECK to scroll to the found 
position. 

HUNT 



RESET 



OKSRCH 
TOBUFF 



CONTSRCH 



SRCH0 



LDA 

STA 

LDA 

CMP 

BNE 

JSR 

LDA 

LDY 

JSR 

JSR 

STA 

BNE 

JMP 

LDY 

LDA 

STA 

INY 

CPY 

BNE 

JMP 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDY 

LDX 



>ifi 



#% h 

53279 

53279 

#3 

CONTSRCH 

TOPCLR 

# <SRCHMSG 

# >SRCHMSG 
PRMSG 
INPUT 
HUNTLEN 
OKSRCH 
SYSMSG 

#0 

INBUFF,Y 

HUNTBUFF,Y 

INLEN 
TOBUFF 

SYSMSG 
CURR 
TEX 
CURR+1 

TEX + 1 

#$FF 

FPOS+1 

#1 

#0 



'J, Sft&T. 
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LDA 


HUNTLEN 


REPSTART 


LDA 


#8 


BEQ 


NOTFOUND 




STA 


53279 


SRCH1 LDA 


HUNTBUFF,X 




LDA 


53279 


JSR 


ASTOIN 




CMP 


#3 


CMP 


(TEX),Y 




BNE 


REPL 


BEQ 


CY 


ASKREP 


JSR 


TOPCLR 


CPX 


#0 




LDA 


# <REPMSG 


BNE 


SRCHO 




LDY 


# >REPMSG 


DEX 






JSR 


PRMSG 


CY INY 






JSR 


INPUT 


BNE 


NOVFL 




STA 


REPLEN 


INC 


TEX + 1 




BEQ 


NOREP 


LDA 


TEX + 1 




LDY 


#0 


CMP 


LASTLINE + 1 


REPMOV 


LDA 


INBUFF,Y 


BEQ 


NOVFL 




STA 


REPBUFF,Y 


BCS 


NOTFOUND 




INY 




NOVFL INX 






CPY 


INLEN 


CPX 


HUNTLEN 




BNE 


REPMOV 


BNE 


SRCH1 


NOREP 


JMP 


SYSMSG 


CLC 




REPL 


SEC 




TYA 


r i : 




LDA 


CURR 


ADC 


TEX 




STA 


DESTL 


STA 


TEMP 




SBC 


FPOS 


LDA 


TEX + 1 




STA 


TEMP 


ADC 


#0 




LDA 


CURR+1 


STA 


TEMP + 1 




STA 


DESTH 


LDA 


LASTLINE 




SBC 


FPOS + 1 


CMP 


TEMP 




ORA 


TEMP 


LDA 


LASTLINE + 1 




BNE 


NOREPL 


SBC 


TEMP + 1 




LDA 


#$FF 


BCC 


NOTFOUND 




STA 


FPOS + 1 


SEC 






CLC 




LDA 


TEMP 




LDA 


HUNTLEN 


SBC 


HUNTLEN 




ADC 


CURR 


STA 


CURR 




STA 


FROML 


STA 


FPOS 




LDA 


#0 


LDA 


TEMP + 1 




ADC 


CURR + 1 


SBC 


#0 




STA 


FROMH 


STA 


CURR+1 




SEC 




STA 


FPOS + 1 




LDA 


LASTLINE 


JSR 


CHECK 




SBC 


DESTL 


RTS 






STA 


LLEN 


NOTFOUND JSR 


TOPCLR 




LDA 


LASTLINE + 1 


LDA 


# <NFMSG 




SBC 


DESTH 


LDY 


# >NFMSG 




STA 


HLEN 


JSR 


PRMSG 




JSR 


UMOVE 


LDA 


#1 




SEC 




STA 


MSGFLG 




LDA 


LASTLINE 


RTS 






SBC 

STA 


HUNTLEN 
LASTLINE 


The change (replace) 


routine checks to 




LDA 


LASTLINE + 1 


see if OPTION is held down with 




SBC 


#0 


CTRL-C. If it is, we ask for a replace 




STA 


LASTLINE + 1 


phrase, and exit. If not, we check to see 




LDA 


REPLEN 


if the cursor is at the 


position pre- 




BEQ 


NOREPL 


viously located by the search routine. If 




STA 


INSLEN 


it is, we delete the found phrase, then 
insert the replace phrase. The cursor is 
moved past the replace phrase for the 




LDA 


#0 




STA 
JSR 
LDY 


INSLEN + 1 
INSBLOCK 
#0 


sake of the next search. This also pre- 


REPLOOP 


LDA 


REPBUFF,Y 


vents endless recursion, as in replacing 




JSR 


ASTOIN 


in with winner. 






STA 


(CURR),Y 



103 



SpeedScript 



3CD , NOREFL 



INY 




CPY 


REPLEN 


BNE 


REPLOOP 


CLC 




LDA 


CURR 


ADC 


REPLEN 


STA 


CURR 


LDA 


CURR+1 


ADC 


#0 


STA 


CURR+1 


IMP 


CHECK 



NOTCENTER 



Suddenly, we're back to a PRINT sub- 
routine. This examines the buffer as it's 
being printed, checking for printkeys 
and Stage 2 commands like centering. 

BUFPRT LDY #0 

BUFLP CPY ENDPOS 

BEQ ENDBUFF 

LDA (INDIR),Y 

BMI SPEC2 

JSR INTOAS 

JSR PCHROUT 

In underline mode, after we print the 
character, we backspace the printhead 
and print an underline character. 





LDA 


UNDERLINE 




BEQ 


NOBRK 




LDA 


#8 




JSR 


PCHROUT 




LDA 


#95 




JSR 


PCHROUT 


NOBRK 


INY 






JMP 


BUFLP 


ENDBUFF 


RTS 




Stage 2 format commands. 


SPEC2 


STY 


YSAVE 




AND 


#127 




STA 


SAVCHAR 




JSR 


INTOAS 


OTHER 


CMP 


#'c 




BNE 


NOTCENTER 



c Centering looks at the length of the 
line, then sends out extra spaces (the 
left margin has already been printed) to 
move the printhead to the right place. 



CLOOP 



SEC 




LDA 


PAGEWIDTH 


SBC 


ENDPOS 


LSR 


A 


SEC 




SBC 


LMARGIN 


TAY 




LDA 


#32 


JSR 


PCHROUT 


DEY 




BNE 


CLOOP 


LDY 


YSAVE 



JMP NOBRK 

CMP #'e 

BNE NOTEDGE 



e Edge right. This subtracts the length 
of the line from the right margin po- 
sition and moves the printhead to this 
position. 



EDGE 


SEC 






LDA 


RMARGIN 




SBC 


ENDPOS 




SEC 






SBC 


LMARGIN 




TAY 






LDA 


#32 




JMP 


CLOOP 


NOTEDGE 


CMP 


#'u 




BNE 


NOTOG 


u Toggle underline m 


ode. V- 




LDA 


UNDERLINE 



y 



NOTOG 



EOR #1 

STA UNDERLINE 

CMP #'# 

BNE DOCODES 



# Substitute the current page number 
for the # symbol. 

DOPGN 



STY 

LDX 

LDA 

JSR 

LDY 

JMP 



YSAVE 

PAGENUM 

PAGENUM + 1 

PROUTNUM 

YSAVE 

NOBRK 



Do special format codes. This just uses 
the screen-code value of the character 
as an index into the CODEBUFFER, 
then sends out the code. SpeedScript 
makes no judgment on the code being 
sent out. 

DOCODES LDX SAVCHAR 

LDA CODEBUFFER,X 

JSR PCHROUT 

JMP NOBRK 

Display free memory using OUTNUM. 



FREEMEM 


JSR 

SEC 


TOPCLR 




LDA 


TEXEND 




SBC 


LASTLINE 




TAX 






LDA 


TEXEND + 1 




SBC 


LASTLINE + 1 




JSR 


OUTNUM 




LDA 


#1 




STA 


MSGFLG 


3D<?7 


RTS 
.END 





-o 



^ 
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i- 



i? 



IDS'- 



Filename D:DATA Data tables 

Messages are stored in ATASCII, with a 
zero byte for a delimiter. . ..<-£, 

MSG1 .BYTE "SpeedScript 3.0" 

.BYTE 

MSG2 .BYTE " by Charles Brannon" 

.BYTE 

KILLMSG .BYTE "Buffer Cleared" 

.BYTE 



/ 



DIRINS .BYTE 



RENMSG .BYTE 
FORMSG .BYTE 




w?\ 



BUFERR 


.BYTE 


"Buffer Full" 




.BYTE 





DELMSG 


.BYTE 


"Delete (S,W,P)" 




.BYTE 





YMSG 


.BYTE 


": Are you sure? 

(Y/N):" 




.BYTE 





CLRMSG 


.BYTE 


"ERASE ALL TEXT" 




.BYTE 





ERASMSG 


.BYTE 


"Erase (S,W,P): (JJj 




.BYTE 


ii\\\\l\ to exit" 


SAVMSG 


.BYTE 


"Save 
(Device:Filename)>" 




.BYTE 





ERRMSG 


.BYTE 


"Error #" 




.BYTE 





BRMSG 


.BYTE 


"BREAK Key Abort" 




.BYTE 





OKMSG 


.BYTE 


"No Errors" 




.BYTE 





LOADMSG 


.BYTE 


"Load 
(Device:Filename)>" 




.BYTE 
.BYTE 





DIRMSG 


" Press QBOgQ" 




.BYTE 





DIRNAME 


.BYTE 


"Dl: 


INSERR 


.BYTE 


"Memory Full" 




.BYTE 





INSMSG 


.BYTE 


"No text in buffer" 




.BYTE 





FNMSG 


.BYTE 


"Print 
(Device:Filename)>" 




.BYTE 





PRINMSG 


.BYTE 


"Printing... " 




.BYTE 


155,155,0 


WAITMSG 


.BYTE 


"Insert next sheet, 




press flgjjflfl" 




.BYTE 





SRCHMSG 


.BYTE 


"Find:" 




.BYTE 





NFMSG 


.BYTE 


"Not found" 


< 


.BYTE 





REPMSG 


.BYTE 


"Change to:" 



The .OPT NO OB} and .OPT OBJ 
pseudo-ops turn on and off object code 
generation. This insures that no object 
code is generated for the variable table. 

.OPT NO OBJ 



«*Z 



rpfi 



.BYTE 



The {ESCJ's represent the ESCape key. 
The arrows are the cursor keys, which 
must be preceded by ESC to be entered 
into text. There is actually only one 
space between the e of Rename and the 
E of ESC. 



TEXSTART 


* = * + 2 


;Start-of-text 
area 


TEXEND 


*= »+2 


;End-of-text 
area 


TEXBUF 


*= * + 2 


;Start of 
buffer 


BUFEND 


*= * + 2 


;End-of- 
buffer area 


LENTABLE 


*= * + l 


,'Length of 
first screen 


■*■" 




line 


TOPLIN 


•= * + 2 


;Home po- 


— 




sition in text 


MSGFLG 


•= * + l 


,-Message flag 


INSMODE 


•= * + l 


;Insert mode 


ENDPOS 


*= * + l 


;Used by de- 
lete routines 


FINPOS 


•= * + l 


'/' " 


LASTLINE 


*- * + 2 


;End-of-text 
position 


LIMIT 


*= * + l 


;Used by 
INPUT 


INLEN 


*= »+l 


;"" 


BOTSCR 


*= * + 2 


;Bottom of 
screen in text 


LBUFF 


*= *+40 


;Line buffer 
(REFRESH) 


INBUFF 


•= ' + 40 


;INPUT 
buffer 


SAVCURR 


•- * + 2 


;Used by de- 
lete routines 


BCD 


*= »+2 


;Used by 
ASCHEX 


HEX 


*= * + 2 


;" " 


TPTR 


*= *+2 


;Last charac- 
ter in buffer 


BUFLEN 


*= *+2 


;Buffer 
length 


GOBLEN 


*= * + 2 


;Size of de- 
leted text 


FROMSAV 


♦= * + 2 


;Used by de- 
lete routines 


DESTSAV 


•= * + 2 


;"" 


HDLEN 


*= * + l 


;Header 
length 
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3 F DC FTLEN 


* — 


*+i 


;Footer 
length 


ESCFLAG 


* _ 


* + l 


;Was ESC 
pressed? 


LMARGIN 


* =: 


* + i 


;Holds left 
margin 


CONVFLAG 


• = 


*+l 


;Used by 
CAST and 


RMARGIN 


• = 


•+1 


/Right 








CINTOAS 








margin 


SELFLAG 


* — 


* + l 


;The SELECT 


PAGELENGTH 


* = 


* + i 


;Page length 








key flag 


TOPMARG 


* — 


* + i 


;Top margin 


IOCB 


* = 


* + l 


,-Which IOCB 


BOTMARG 


* = 


*+i 


/Bottom 








is OPEN 








margin 


ACCESS 


*=: 


* + l 


;Direction of 


SPACING 


+ = 


* + i 


;Line spacing 








ACCESS 


CONTINUOUS 


* = 


* + i 


;Page wait 








(read/write) 








mode 


FNBUFF 


* = 


* + 40 


;Filename 


PAGENUM 


• = 


* + 2 


;Page 








buffer 








number 


FNLEN 


* — 


* + l 


/Filename 


STARTNUM 


4 -_ 


* + 2 


;Start print- 








length 








ing at # 


XSLOT 


* = 


•+1 


;Number of 


3FJ?F PAGEWIDTH 


* = 


* + l 


;Columns 
across 








filename 
slots 


NOMARG 


* = 


» + l 


;Margin re- 








(DOSPAK) 








lease flag 


SLOT 


* = 


* + 130;Slot po- 


POS 


* = 


* + l 


;POSition 
within line 








sitions 
(DOSPAK) 


LINE 


* = 


* + l 


;Line count 


XPTR 


* — 


* + l 


;Current file- 


YSAVE 


* — 


* + l 


;Preserves Y 
register 








name slot 
(DOSPAK) 


SAVCHAR 


* = 


* + l 


preserves 


WHICHFLAG 


* + l 


/Which key 








accumulator 








is pressed 


INSLEN 


* = 


* + l 


/Length of an 
insertion 


DIRCOUNT 


* = 


* + l 


/Directory 
count 


DEVNO 


* = 


* + l 


;Device 
number 


BLINK 


* = 


* + l 


/Cursor blink 
flag 


NEEDASC 


* = 


* + l 


;True ASCII 
flag 


LINELEN 


• = 


* + l 


; Length of 
screen lines 


j?F^P | UNDERLINE 


* = 


* + l 


;Underline 
mode flag 


RLM 


* — 


* + l 


/REFRESH 
left margin 


FPOS 


* — 


* + 2 


;Found 


446 " 






value 








position 


KEYVAL 


* — 


* + l 


/Which key 


PCR 


♦ = 


* + l 


;Used by 








is pressed 








PCHROUT 


END 


= 


* 


/High byte of 


HUNTLEN 


* = 


*+l 


;Length of 
hunt phrase 








this +$100 is 
TEXSTART 


HUNTBUFF 


* = 


* + 30 


;Holds hunt 




.OPT OBJ 




REPLEN 


» = 


* + l 


phrase 
;Length of re- 


Autorun vector 












place phrase 


' 


k — 


$02E2 


REPBUFF 


* = 


• + 30 


;Holds re- 




WORD 


BEGIN 








place phrase 




END 






CODEBUFFER 


* = 


* + 128;Holds de- 
















finable 
printkeys 
6/Printer line 


Label Cross 


Referen 


ce. This chart 


PRBUFF 


* — 


* + 25 


makes it easier to find your place in the 








buffer 


object code 


while looking 


at the source 


HDBUFF 


* = 


* + 256;Holds 


code. The number to the left of each la 








header 


bel is its value or position 


within the 


FIRSTRUN 


* c=a 


* + l 


;Has program 


object code. 


Labels 1 


preceded by an = 








been run 


mark are equates. Others 


are internal 


FTBUFF 


* _ 


oerorer 
* + 256;Holds footer 


labels for object code positions. 


SAVCOL 


* = 


* + l 


;Save 


43BA 


ACCESS 












SCRCOL 


3A2E 


ACROSS 




LINEFEED 


* — 


* + l 


;Linefeed 


294B 


ADYCURR 










mode flag 


3721 


ALPHA 
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3614 


ASCHEX 


3C3C 


ASKREP 


262C 


ASTOIN 


3FCD 


BCD 


1F00 


BEGIN 


446A 


BLINK 


3029 


BLIP 


0074 


BLUE 


2983 


BORDER 


33AA 


BOTCLR 


3FE1 


BOTMARG 


3F79 


BOTSCR 


24D3 


BREAK 


3E3A 


BRMSG 


3A92 


BT 


3F6C 


BUFEND 


3DBB 


BUFERR 


3FD3 


BUFLEN 


3CDE 


BUFLP 


3CDC 


BUFPRT 


33FF 


CAST 


340C 


CASH 


3419 


CASTOIN 


3100 


CATALOG 


27CF 


CHECK 


282D 


CHECK2 


2F7F 


CHROUT 


2FCB 


CHRYSAVE 


3426 


CIN 


3407 


CINTOAS 


E456 


CIO 


284C 


CK3 


2D02 


CLEAR 


2501 


CLEARED 


28E2 


CLEFT 


3D1F 


CLOOP 


3184 


CLOSE7 


254C 


CLR2 


24F4 


CLRLN 


2543 


CLRLOOP 


3DED 


CLRMSG 


4033 


CODEBUFFER 


3AF0 


COMMENT 


3FE3 


CONTINUOUS 


2732 


CONTROL 


3BB7 


CONTSRCH 


43B7 


CONVFLAG 


24D7 


COPY 


3296 


COPYD 


37EC 


COPYDEF 


3801 


COPYDEFS 


32A3 


COPYNAME 


3332 


COPYR 


3446 


COTHER 


3998 


CR 


28AF 


CRIGHT 


3986 


CRLF 


3991 


CRLOOP 


2753 


CTBL 


0086 


CURR 


2EE7 


CURSIN 


3430 


CVLOOP 


3BDC 


CY 



3282 


DDOWN 


3654 


DECHEX 


3AF6 


DEFINE 


3752 


DEFTAB 


2A6C 


DELI 


2A80 


DELIA 


2A89 


DEL2 


2A7D 


DELABORT 


2AA0 


DELC 


2B32 


DELCHAR 


2B5C 


DELETE 


32E5 


DELFILE 


2B4D 


DELIN 


35FF 


DELITE 


3DC7 


DELMSG 


2B8A 


DELSENT 


2B7D 


DELWORD 


0083 


DESTH 


0082 


DESTL 


3FD9 


DESTSAV 


3FEF 


DEVNO 


3622 


DIGIT 


4469 


DIRCOUNT 


3F00 


DIRINS 


3156 


DIRLOOP 


3E6C 


DIRMSG 


3E7A 


DIRNAME 


25E9 


DISKBOOT 


3247 


DLEFT 


2E0A 


DLI 


2DEE 


DLIST 


2DC8 


DLOOP 


2474 


DMOV1 


244D 


DMOVE 


2476 


DMOVLOOP 


3170 


DNOT8 


315B 


DNOTCR 


3873 


DOBUF2 


3869 


DOBUFF 


3D62 


DOCODES 


3B04 


DODEFINE 


26F4 


DOINS 


2D25 


DOIT 


3678 


DONENUM 


3D50 


DOPGN 


38EB 


DORPT 


31BB 


DOS 


3229 


DOSADR 


33B6 


DOSERR 


33EF 


DOSMSG 


3219 


DOSTABLE 


3254 


DRIGHT 


336F 


DRIVE 


3271 


DUP 


2BD9 


EATSPACE 


3D2F 


EDGE 


2F99 


ENAME 


446E 


END 


3D00 


ENDBUFF 


3194 


ENDIR 


319E 


ENDLP 


3F73 


ENDPOS 


2967 


ENDTEX 
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2814 


EQA 


2E97 


ERA1 


2EA6 


ERA2 


2E33 


ERAS 


2E42 


ERAS1 


2E4C 


ERASAGAIN 


251F 


ERASE 


2E7B 


ERASENT 


3DFC 


ERASMSG 


2E6E 


ERASWORD 


34A7 


ERR1 


379B 


ERRLINK 


3E32 


ERRMSG 


34AE 


ERROR 


34C7 


ERXIT ' 


27BD 


ESC 


3399 


ESCDOS 


43B6 


ESCFLAG 


2F2E 


ESCKEY 


2C75 


FILLSP 


3201 


FINDIT 


3841 


FINDSPACE 


35E8 


FINE 


3F74 


FINPOS 


42B3 


FIRSTRUN 


29F4 


FIRSTWORD 


2B3B 


FIXTP 


2687 


FLIPIT 


43BB 


FNBUFF 


3B1D 


FNCOPY 


3B2F 


FNEND 


43E3 


FNLEN 


3E9E 


FNMSG 


3355 


FORMAT 


3F5A 


FORMSG 


2740 


FOUND 


320C 


FOUNDIT 


3858 


FOUNDSPACE 


3FF2 


FPOS 


3D6E 


FREEMEM 


0081 


FROMH 


0080 


FROML 


3FD7 


FROMSAV 


39BF 


FSP 


3850 


FSPACE 


3AD7 


FT 


42B4 


FTBUFF 


3AE0 


FTCOPY 


3FDC 


FTLEN 


31A9 


GET7 


256F 


GETAKEY 


2FD6 


GETCHAR 


2FCC 


GETIN 


31D6 


GETNAME 


2D4F 


GOADY 


3FD5 


GOBLEN 


3565 


GOERROR 


2C06 


GOINC 


2FC1 


GOPCHR 


2AD4 


GOSAV 


32EA 


GOXIO 


3001 


GXIT 


3AB5 


HD 



41B3 


HDBUFF 


3ABE 


HDCOPY 


3FDB 


HDLEN 


3FCF 


HEX 


2D AD 


HIGHLIGHT 


0085 


HLEN 


2BA1 


HOME 


2BC3 


HOMEPAUSE 


3B85 


HUNT 


3FF6 


HUNTBUFF 


3FF5 


HUNTLEN 


034A 


ICAUX1 


034B 


ICAUX2 


0344 


ICBADR 


0348 


ICBLEN 


0342 


ICCOM 


0343 


ICSTAT 


3FA3 


INBUFF 


250C 


INCNOT 


3744 


INCONT 


008E 


INDIR 


2F4D 


INEXIT 


2589 


INIT 


25EA 


INIT2 


2726 


INKURR 


3F78 


INLEN 


2CE1 


INOUT 


2ED5 


INP1 


2ECE 


INPUT 


2868 


INRANGE 


2C92 


INSBLOCK 


367D 


INSBUFFER 


2C7C 


INSCHAR 


3E80 


INSERR 


3FEE 


INSLEN 


3F72 


INSMODE 


3E8C 


INSMSG 


2CE2 


INSTGL 


374D 


INT1 


3738 


INTOAS 


33E5 


INVLP 


33E3 


INVNAME 


3B9 


IOCB 


34E0 


IOCLOSE 


2575 


JDOS 


357B 


JFINE 


32F2 


JNAME 


3040 


KEYBOARD 


2694 


KEYPRESS 


446D 


KEYVAL 


2A50 


KILLBUFF 


3DAC 


KILLMSG 


3F75 


LASTLINE 


295A 


LASTWORD 


3F7B 


LBUFF 


3B5A 


LCONT 


28B8 


LEFT 


3F6E 


LENTABLE 


298B 


LETTERS 


3A6B 


LFSET 


3F77 


LIMIT 


3FEB 


LINE 


43B5 


LINEFEED 
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446B 


LINELEN 


3B19 


LINK 


0084 


LLEN 


3A74 


LM 


3975 


LMARG 


3FDD 


LMARGIN 


3985 


LMEXIT 


397F 


LMLOOP 


3B49 


LNOERR 


3554 


LOAD2 


3377 


LOADIT 


357E 


LOADLINK 


3E54 


LOADMSG 


32F8 


LOCK 


2C4C 


LOTTASPACE 


2645 


LOWR 


2648 


MAIN 


2651 


MAIN2 


2428 


MOV1 


242A 


MOV2 


242F 


MOVLOOP 


3 A 25 


MRELEASE 


3D88 


MSG1 


3D98 


MSG2 


3F71 


MSGFLG 


31EB 


NAMELP 


3294 


NAMER 


3FF0 


NEEDASC 


38FC 


NEXPAGE 


3EEB 


NFMSG 


39ED 


NOAD 


2F1B 


NOBACK 


28AC 


NOBIGGER 


2583 


NOBLINK 


3CFC 


NOBRK 


28E8 


NODEC 


3571 


NOER 


2F04 


NOESC 


2A37 


NOFIXCURR 


35E2 


NOGARBAGE 


3963 


NOHEADER 


3675 


NOHEXINC 


272C 


NOINC2 


28B5 


NOINCR 


2C63 


NOINCV 


3929 


NOIPN 


39A5 


NOLF 


3FE9 


NOMARG 


26B8 


NOMSG 


334F 


NONAME 


3653 


NONUM 


2E91 


NOPAR 


31FF 


NOPROB 


3C5C 


NOREP 


3CD9 


NOREPL 


3902 


NOSK 


3B82 


NOSR 


32B2 


NOSTOR 


3735 


NOTALPHA 


26AC 


NOTBKS 


300F 


NOTCAPS 


3D2B 


NOTCENTER 


26C2 


NOTCR 



32BF 


NOTDOT 


3D40 


NOTEDGE 


3C20 


NOTFOUND 


26F7 


NOTINST 


3024 


NOTLOCKED 


2455 


NOTNULL 


3D4C 


NOTOG 


389E 


NOTPAGE 


2BA0 


NOTPAR 


344F 


NOTRC 


382F 


NOTRET 


3440 


NOTRTN 


26A6 


NOTSEL 


2B93 


NOTSENT 


3004 


NOTSET 


382B 


NOTSP 


2B86 


NOTWORD 


2F13 


NOTZERO 


3BEA 


NOVFL 


2E77 


NOWORD 


326E 


NRANGE 


3AA6 


NX 


24C7 


NXCUR 


2941 


OIDS 


27FF 


OKI 


282C 


OK2 


36A5 


OKBUFF 


2D0F 


OKCLEAR 


2CA9 


OKINS 


3568 


OKLOD 


36DF 


OKMOV 


3E4A 


OKMSG 


3BA6 


OKSRCH 


27C6 


ONOFF 


2FCA 


ONUMEXIT 


2FB1 


ONUMLOOP 


3508 


OPABORT 


3510 


OPCONT 


2F59 


OPENEDITOR 


3D0C 


OTHER 


244C 


OUT 


2BC9 


OUTHOME 


2FA0 


OUTNUM 


287A 


OUTRANGE 


2C0B 


OUTSPACE 


26E2 


OVERCTRL 


387B 


OVERMARG 


3452 


OVEROTHER 


2FC4 


OVERPCHR 


385B 


OVERSTOR 


2FA2 


OVERZAP 


38EE 


PAGE 


3FDF 


PAGELENGTH 


3FE4 


PAGENUM 


3FE8 


PAGEWIDTH 


2D64 


PARCONT 


2D31 


PARIGHT 


2D52 


PARLEFT 


2D5E 


PARLOOP 


2D33 


PARLP 


3ACF 


PASTRET 


37BB 


PBORT 



109 



SpeedScript 



3762 


PCHROUT 


3FF4 


PCR 


2514 


PDONE 


38D7 


PEXIT 


3A58 


PL 


24B1 


PLINE 


3814 


PLOOP 


3824 


PLOOP1 


29A7 


PMANY 


3A48 


PN 


3FEA 


POS 


24AF 


PPAGE 


40B3 


PRBUFF 


375E 


PRCODES 


256E 


PREXIT 


37B1 


PRIN 


3EB7 


PRINMSG 


37BE 


PRINT 


2564 


PRLOOP 


2559 


PRMSG 


37D5 


PROK 


35F0 


PROKMSG 


2F9B 


PROUTNUM 


29BD 


PSLOOP 


29B9 


PSRCH 


29DE 


PUNCT 


2A26 


PUNCT2 


3A62 


PW 


38C1 


PXIT 


0032 


RED 


312D 


REDIR 


2826 


REF 


248B 


REFRESH 


3308 


RENAME 


3F4F 


RENMSG 


4015 


REPBUFF 


29EF 


REPEAT 


3C5F 


REPL 


4014 


REPLEN 


3CBD 


REPLOOP 


3C50 


REPMOV 


3EF5 


REPMSG 


3C30 


REPSTART 


3B91 


RESET 


3261 


RESLOT 


005E 


RETCHAR 


380A 


RETEX 


2D75 


RETF2 


2D4A 


RETFOUND 


2885 


RIGHT 


446C 


RLM 


2925 


RLOOP 


3A7E 


RM 


3FDE 


RMARGIN 


2933 


ROUT 


297A 


SAFE 


3B64 


SANDR 


3FED 


SAVCHAR 


43B4 


SAVCOL 


3FCB 


SAVCURR 


3E1A 


SAVMSG 


24D2 


SBRK 


0088 


SCR 



298A 


SCRCOL 


43B8 


SELFLAG 


02BE 


SHFLOK 


37 A4 


SHIFTFREEZE 


2481 


SKIPDMOV 


1F34 


SKIPERAS 


3918 


SKIPFT 


2448 


SKIPMOV 


37A9 


SKIPOUT 


2F3E 


SKIPSEL 


29E2 


SKIPSPC 


3974 


SKIPTOP 


299B 


SLEFT 


24C3 


SLOOP 


43E5 


SLOT 


3036 


SLOW 


3031 


SNDLOOP 


3B6F 


SNR 


3A9C 


SP 


0000 


SPACE 


3FE2 


SPACING 


3A38 


SPAGE 


39E6 


SPCEXIT 


39D5 


SPCONT 


2BE7 


SPCSRCH 


3D01 


SPEC2 


39A6 


SPECIAL 


39F1 


SPTAB 


3A03 


SPVECT 


2735 


SRCH 


3BC6 


SRCH0 


3BCD 


SRCH1 


3EE5 


SRCHMSG 


39B1 


SRCHSP 


2A23 


SREXIT 


2A01 


SRIGHT 


2A03 


SRLP 


3FE6 


STARTNUM 


34D3 


STOPPED 


28F9 


STRIP 


2903 


STRLOOP 


3711 


SWITCH 


260A 


SYSMSG 


2C54 


TAB 


2C66 


TAB2 


008C 


TEMP 


008A 


TEX 


3F6A 


TEXBUF 


299A 


TEXCOLR 


3F68 


TEXEND 


35AB 


TEXOK 


3F66 


TEXSTART 


2DA2 


TEXTOCURR 


3178 


THROW5 


3539 


TLOAD 


3BA8 


TOBUFF 


28DF 


TOOSMALL 


394D 


TOP 


261 A 


TOPCLR 


34EB 


TOPEN 


2BCC 


TOPHOME 


3F6F 


TOPLIN 


261E 


TOPLOOP 



110 



SpeedScript Source Code 



396E 


TOFLP 


3FE0 


TOPMARG 


3A88 


TP 


3FD1 


TPTR 


345D 


TSAVE 


2410 


UMOVE 


0090 


UNDERCURS 


3FF1 


UNDERLINE 


3300 


UNLOCK 


2E84 


UNSENT 


2777 


VECT 


2667 


WAIT 


3EC5 


WAITMSG 


2BBC 


WAITST 


4468 


WHICHFLAG 



0091 


WINDCOLR 


28ED 


WLEFT 


2906 


WLOOP 


2923 


WRIGHT 


2914 


WROUT 


2957 


WRTN 


374F 


XINT 


32C8 


XIO 


4467 


XPTR 


43E4 


XSLOT 


3DD6 


YMSG 


2CEB 


YORN 


2CF2 


YORNKEY 


3FEC 


YSAVE 


3890 


ZBUFF 
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ASCII files 13 

ASCII value, use of in defining a 

printkey 21-22 
Atari DOS 2.0, use of 4, 15 
Atari DOS 3.0, use of 4, 15 
"The Automatic Proofreader" 34-36 

preparing the program 34 

program listing 35-36 

using the program 35 
command line 5 
control key commands 7-15 

CTRL-A 14 

CTRL-B 14 

CTRL-C 11-12 

CTRL-CLEAR 7 

CTRL-D 9, 10 

CTRL-DELETE/BACK S 9 

CTRL-E 9, 10 

CTRL-F 1 1 

CTRL-G 11, 12 

CTRL-I 8 

CTRL-INSERT 8 

CTRL-K 10 

CTRL-L 11-12 

CTRL-M 13 

CTRL-O 14 

CTRL-P 16 

CTRL-R 10 

CTRL-S 12 

CTRL-T 14 

CTRL-U 6 

CTRL-X 14 

CTRL-Z 8, 13 

CTRL-1 16 

CTRL- + 7 

CTRL-*7 

CTRL- -7 

CTRL- = 7 

ESC key, use of with CTRL 8 

explanation of how to enter 7 

OPTION button, use of with CTRL 7, 

11, 14 
cursor movement 7-8 

cursor-down key 7 

cursor-left key 7 

cursor-right key 7 

cursor-up key 7 
delete mode 9-10 
disk commands 13-14 
entering of text 5-9 
erase mode 9 
erasing of text 9-10 



format commands 15-23 

SELECT key 16-17, 21 

Stage 1 commands 16-20 

Stage 2 commands 20-21 

summary of 19 
insert mode 8-9 
keyboard commands 7-12. See also 

control key commands; keyboard 

map, illustration of 

BREAK key 16 

CAPS/LOWR key 15 

DELETE/BACK S key 9 

OPTION-CTRL-C 11 

OPTION-CTRL-F 11 

OPTION-CTRL-G 11 

OPTION-CTRL- + 14 

OPTION-CTRL-' 14 

SELECT key 16-17, 21 

SHIFT-DELETE/BACK S 9 

SHIFT-INSERT 8 

SHIFT- + 7 

SHIFT-*7 

SHIFT- -7 

SHIFT- = 7 

START button 8 

SYSTEM RESET button 15 

TAB key 8 
keyboard map, illustration of 18 
loading of a document 12 
loading of program 

binary disk file 4 

boot tape 4-5 
"The Machine Language Editor: MLX" 

27-33 

commands 4, 28-29 

ending address 3, 27, 37 

explanation of use 27 

program listing 29-33 

run/init address 3, 27, 37 

starting address 3, 27, 37 

typing in multiple sittings 4-5 
MAC/65 Assembler 69 
merging, of files 13 

Optimized Systems Software, Inc. 5, 69 
OPTION button, use of 11 
OS/A+ DOS, use of 4, 15 
overscanning 14 
parsing 6 
printing of documents 

default settings 16 

explanation of use 15-23 

to an RS-232 printer 16 
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printkey, defining of 21-23 
program listing 37-65 
return-mark 7 
saving of the program 

as a binary file 3, 27 

as a boot tape 3, 27 
screen formatting 6-7 
scrolling 6-7 
search and replace 11-12 
source code 69-111 

explanation of 69-70 

listing of 71-111 



start a new document 1 1 
storing of a document 12 
text buffer 10 
typing it in 3-5 

in multiple sittings 4-5 
using the program 3-23 
width of the screen, how to change it 

14 
word wrap 6 
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To order your copy of the Atari Speedscript Disk call our toll- 
free US order line: 1-800-346-6767 (in NY 212-887-8525) or 
send your prepaid order to: 7j ( „, , e 7j c ?-Z75.s? SO ° 

Atari Speedscript Disk 

COMPUTE! Publications Co^ ?o~\ -c 

P.O. Box 5038 p0 , >4o - 

F.D.R. Station _, ., r> , , . oJs^U 

New York, NY 10150 ;) , ^ 402> 

All orders must be prepaid (check, charge, or money order). NC 
residents add 4,5% sales tax. 

Send copies of the Atari Speedscript Disk at $12.95 per 

copy. 

Subtotal $ 

Shipping and Handling: $2.00/disk $ 

($5.00 airmail) 

Sales tax (if applicable) $ 

Total payment enclosed $ 



□ Payment enclosed 

a Charge □ Visa a MasterCard a American Express 

Acct. No. . Exp. Date 

Name 



(Required) 



Address 



City State Zip 

Please allow 4-5 weeks for delivery. 



If you've enjoyed the articles in this book, you'll find 
the same style and quality in every monthly issue of 
COMPUTE! Magazine. Use this form to order your 
subscription to COMPUTE!. 

For Fastest Service 
Call Our Toil-Free US Order Line 

1-800-247-5470 

In IA call 1-800-532-1272 



COMPUTE! 

P.O. Box 10954 

Des Moines, IA 50340 

My computer is: 

D Commodore 64 or 1 28 □ TI-99/4A D IBM PC or PCjr □ VIC-20 

D Apple □ Atari □ Amiga □ Other 

□ Don't yet have one... 



D $24 One Year US Subscription 

□ $45 Two Year US Subscription 

□ $65 Three Year US Subscription 

Subscription rates outside the US: 

D $30 Canada and Foreign Surface Mail 

□ $65 Foreign Air Delivery 

Name 



Address 



City State Zip 

Country 

Payment must be in US funds drawn on a US bank, international 
money order, or charge card, 

□ Payment Enclosed □ Visa 

□ MasterCard □ American Express 

Acct. No. Expires / 

(Required) 

Your subscription will begin with the next available issue. Please 
allow 4-6 weeks for delivery of first issue. Subscription prices subject 
to change at any time. 



COMPUTE! Books 

P.O. Box 5038 
F.D.R. Station 
New York, NY 10150 

Ask your retailer for these COMPUTE! Books. If he or she 
has sold out, order directly from COMPUTE!. 

For Fastest Service 

Call Our TOLL FREE US Order Line 

1-800-346-6767 

In NY call 212-887-8525 

Or write COMPUTE! Books, 

P.O. Box 5038, F.D.R. Station, New York, NY 10150 

Quantity Title Price Total 

COMPUTED First Book of Atari (00-0) $12.95 

COMPUTED Second Book of Atari (06-X) $12.95 

COMPUTED Third Book of Atari (18-3) $12.95 

COMPUTEI's First Book of Atari Graphics (08-6) $12.95 

COMPUTEI's Second Book of Atari 

Graphics (28-0) $12.95 

COMPUTEI's First Book of Atari Games (14-0) $12.95 

COMPUTEI's Atari Collection, Volume 1 (79-5) $12.95 

COMPUTEI's Atari Collection, Volume 2 (029-7) $14.95 

Machine Language for Beginners (1 1-6) $14.95 

Second Book of Machine Language (53-1) $14.95 

SpeedScript: The Word Processor 

for the Atari (003) $ 9.95 

Mapping The Atari, Revised (004) $16.95 

COMPUTEI's ST Programmer's Guide (023-8) $16.95 

The Elementary Atari ST (024) $16.95 

COMPUTEI's Kids and the ST (386) $14.95 

Elementary ST BASIC (343) $14.95 

Introduction to Sound and Graphics 

on the Atari ST (035) $14.95 

Add $2.00 per book shipping and handling. Outside US add 
$5.00 air mail or $2.00 surface mail. 

NC residents add 4.5% sales tax 

Shipping & handling 

Total payment 



All orders must be prepaid (money order, check, or charge). All 
payments must be in US funds. 

□ Payment enclosed Please charge my: □ Visa □ MasterCard 

□ American Express 

Acct. No Exp. Date 

Name 

Address 

City State Zip 

Country 

'Allow 4-5 weeks for delivery. 

Prices and availability subject to change without notice. 



COMPUTE! Books 

Ask your retailer for these COMPUTE! Books or order 
directly from COMPUTE! 

Call toll free (in US) 800-346-6767 (in NY 212-887- 
8525) or write COMPUTE! Books, P.O. Box 5038, F.D.R. 
Station, New York, NY 10150 



Quantity Title Price' Total 

Machine Language for Beginners (11-6) $14.95 

The Second Book of Machine Language (53-1) $14.95 

COMPUTED Guide to Adventure Games (67-1) $12.95 

Computing Together: A Parents & Teachers 

Guide to Computing with Young Children (51-5) $12.95 

COMPUTED Personal Telecomputing (47-7) $12.95 

BASIC Programs for Small Computers (38-8) $12.95 

Programmer's Reference Guide to the 

Color Computer (19-1) $12.95 

Home Energy Applications (10-8) $14.95 

The Home Computer Wars: 

An Insider's Account of Commodore and Jack Tramiel 

Hardback (75-2) $16.95 

Paperback (78-7) $ 9.95 

The Book of BASIC (61-2) $12.95 



The Greatest Games: The 93 Best Computer 

Games of all Time (95-7) $ 9.95 

Investment Management with Your 

Personal Computer (005) $14.95 

40 Great Flight Simulator Adventures (022) $ 9.95 

40 More Great Flight Simulator Adventures (043-2) $ 9.95 

100 Programs for Business and Professional Use (017-3) $24.95 

From BASIC to C (026) $16.95 

The Turbo Pascal Handbook (037) $14.95 

Electronic Computer Projects (052-1) $ 9.95 

" Add $2.00 per book for shipping and handling. 
Outside US add $5.00 air mail or $2.00 surface mail. 

NC residents add 4.5% sales tax. 

Shipping & handling: $2.00/book 

Total payment 



All orders must be prepaid (check, charge, or money order), 

All payments must be in US funds. 

□ Payment enclosed. 

Charge □ Visa □ MasterCard □ American Express 

Acct. No. Exp. Date 

(Required) 

Name 

Address 

City State Zip 

'Allow 4-5 weeks for delivery. 

Prices and availability subject to change. 

Current catalog available upon request. 
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Writing 




Easy 



Thousands of people have already made SpeedScript COM- 
PUTE! Publications' most popular program ever. Offering 
nearly every feature and convenience you expect to find in 
a quality word processor, SpeedScript is the perfect writing 
tool. With SpeedScript, writing, editing, formatting, and print- 
ing any document — from the shortest letter to the longest 
novel — become easier. Anything can be changed, modified, 
or rewritten with just a few keystrokes on your Atari 400/800, 
600XL/800XL, 1200XL, or new XE and at least 24K of memory. 
The mechanics of writing become less intrusive — so you can 
concentrate on the writing, not the process itself. 

SpeedScript 3.0 is our most powerful version of this easy- 
to-use word processor. Commands have been added, other 
features enhanced, to give you the best possible writing 
instrument. 

Here are just a few of the features of this book: 

• Complete program listing for SpeedScript 3.0 

• Detailed documentation that shows you how to use all of 
SpeedScripfs commands and capabilities 

• "The Machine Language Editor: MLX," an entry program 
which insures that you'll type in SpeedScript right the first 
time 

• SpeedScript 3. (7s source code (by studying it, you'll see how 
SpeedScript was written) 

SpeedScript is a most impressive word processor. It's a 
writer's tool that you can use from the moment you run it. 
With SpeedScript The Word Processor for the Atari, you have 
a complete package — the word processor and the com- 
plete documentation. 



ISBN 0-87455-003-3 



